关于dbgrid控件问题（菜鸟问题）！！求救

Question

首先，DBGrid的Options中的dgMultiSelect要设为True。procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  DBGrid1.SetFocus;
  DBGrid1.DataSource.DataSet.First;
  keybd_event(VK_SHIFT, 0, 0, 0);
  for I := 1 to DBGrid1.DataSource.DataSet.RecordCount - 1 do
  begin
    keybd_event(VK_DOWN, 0, 0, 0);
    keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
  end;
  keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
end;

Answer 1

先要将DBGrid的Options中的dgMultiSelect要设为True。
然后按钮的Click事件如下：
procedure TForm1.Button7Click(Sender: TObject);
begin
  Query1.First;
  while not Query1.Eof do
  begin
    DbGrid1.SelectedRows.CurrentRowSelected:=True;//主要是利用DbGrid的这个属性
    Query1.Next;
  end;
end;