如何编写DBGrid的一键全选？

Question

顾名思义， 用一个button， click后， DBgrid中所有的record都被选中。

Answer 1

首先将multiselect设为true
dbgrid.disablecontrol;
dbgrid.datasource.dataset.first;
while not dbgrid.datasource.dataset.eof
do begin
  dbgrid..SelectedRows.CurrentRowSelected:=true;
  dbgrid.datasource.dataset.next;
end;
dbgrid.first;
dbgrid.enablecontrol;

Answer 2

with dbgrild do
begin
   disablecontrol;
   datasource.dataset.first;
   while not datasource.dataset.eof
   do begin
      SelectedRows.CurrentRowSelected := true;
      datasource.dataset.next;
   end;
   first;
   enablecontrol;
end;