在DBGrid中实现多选功能

1、首先把DBGrid->options-dgMulitSelect设为True.  dgRowSelect也设为True,此属性设为true后，DBGrid将不能编辑，如何实现能否编辑代码如下

要先引用 uses DBGrids单元

procedure TfrmXJCGHD.CheckBox1Click(Sender: TObject);
begin
  inherited;
  if checkBox1.Checked then
  begin
    DBGridEh.Options := DBGridEh.Options + [dgRowSelect];
  end else
  begin
    DBGridEh.Options := DBGridEh.Options - [dgRowSelect];
    DBGridEh.Options := DBGridEh.Options + [dgEditing];
  end;
end;

2、编写代码。

主要是用游标，示例如下：

for i := 0 to (DBGridEH.SelectedRows.Count - 1) do
    begin
      DBGridEH.DataSource.DataSet.GotoBookmark(pointer(DBGridEH.SelectedRows.Items[i]));
      Detail.Edit;
      Detail['XJZ_HZF'] := true;
    end;

以上代码测试通过，可以放心使用。