Delphi DBGrid 多行选择指南：完整代码示例

要选择多行记录，可以使用Delphi的DBGrid的多选功能。以下是一个例子来演示如何选择多行记录：\n1. 首先，在DBGrid的Options属性中启用多选功能。设置Options的goMultiSelect属性为True。\n\n2. 在DBGrid的OnCellClick事件中编写代码来处理多选。例如，可以使用一个TList来保存所选中的行号，然后在OnDrawColumnCell事件中根据行号来绘制被选中的行。\n\ndelphi\nvar\n SelectedRows: TList;\n\nprocedure TForm1.DBGrid1CellClick(Column: TColumn);\nvar\n i: Integer;\nbegin\n if DBGrid1.SelectedRows.CurrentRowSelected then\n begin\n // 如果当前行已被选中，则从SelectedRows中移除\n i := SelectedRows.IndexOf(Pointer(DBGrid1.DataSource.DataSet.RecNo));\n if i <> -1 then\n SelectedRows.Delete(i);\n end\n else\n begin\n // 如果当前行未被选中，则添加到SelectedRows中\n SelectedRows.Add(Pointer(DBGrid1.DataSource.DataSet.RecNo));\n end;\n DBGrid1.Repaint; // 重新绘制DBGrid\nend;\n\nprocedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;\n DataCol: Integer; Column: TColumn; State: TGridDrawState);\nbegin\n if SelectedRows.IndexOf(Pointer(DBGrid1.DataSource.DataSet.RecNo)) <> -1 then\n begin\n // 如果当前行在SelectedRows中，则绘制为选中状态\n DBGrid1.Canvas.Brush.Color := clHighlight;\n DBGrid1.Canvas.Font.Color := clHighlightText;\n end;\n DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);\nend;\n\n\n3. 使用SelectedRows列表来获取所选中的行。例如，可以使用以下代码来获取所选中行的记录数：\n\ndelphi\nvar\n i: Integer;\nbegin\n for i := 0 to SelectedRows.Count - 1 do\n begin\n // 获取被选中行的记录\n DBGrid1.DataSource.DataSet.GotoBookmark(Pointer(SelectedRows[i]));\n // 处理记录\n end;\nend;\n\n\n这样就可以实现在Delphi的DBGrid中选择多行记录的功能了。