如何在DBGRID中一次选定多行删除?

Question

能否给个思路或给段原代码?

Answer 1

设置DBGrid的Options属性中的dgMultiSelect为True，这样就能选定多行(只能用Ctrl+鼠标进行多选)，
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=DBGrid1.SelectedRows.Count-1 downto 0 do
      begin
        GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
        Delete;
      end;
end;

Answer 2

属性中有啊 options->dgMultiSelect为True

Answer 3

for i:=1 to dbgrid.selecedrow.count do
begin
 gotobook(pointer(dbgrid.selectedrow.itemes[i-1]));
 table1.delete;
end;