Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Выделить все поля в TDBGrid?

01.01.2007
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;
 
procedure TForm1
.Button1Click(Sender: TObject);
begin
 
GridSelectAll(DBGrid1);
end;

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php