[Truco Delphi] Seleccionar todos los campos en un TDBGrid.
Descripcion:
Permite la seleccion de todos los campos de un TDBGrid.
delphi
function GridSelectAll(Grid: TDBGrid): Longint; begin Result := 0; Grid.SelectedRows.Clear; with Grid.Datasource.DataSet do begin First; DisableControls; try while not EOF do begin Grid.SelectedRows.CurrentRowSelected := True; inc(Result); Next; end; finally EnableControls; end; end; end;
uso:
delphi
procedure TForm1.Button1Click(Sender: TObject); begin GridSelectAll(DBGrid1); end;