The multi-select function is implemented in DBGrid.

1, first set the Dbgrid->options-dgmulitselect to true. Dgrowselect is also set to true, after this property is set to True, DBGrid will not be able to edit, and how to implement can edit the code as follows

To refer to the uses Dbgrids unit first

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, write code.

Mainly with cursors, examples are as follows:

For I: = 0 to (dbgrideh.selectedrows.count-1) does
Begin
DBGridEH.DataSource.DataSet.GotoBookmark (pointer (dbgrideh.selectedrows.items[i));
Detail.edit;
detail[' xjz_hzf ': = true;
End

The above code test pass, can rest assured that use.

The multi-select function is implemented in DBGrid.