Delphi TDBGridEh 鼠标选择一行记录教程

要使用鼠标选中一行记录，可以使用TDBGridEh的事件OnCellClick或OnMouseDown来实现。\n\n在OnCellClick事件中，可以通过以下代码来获取选中行的索引：\n\ndelphi\nprocedure TForm1.DBGridEh1CellClick(Column: TColumnEh);\nbegin\n DBGridEh1.SelectedRows.Clear;\n DBGridEh1.SelectedRows.CurrentRowSelected := True;\nend;\n\n\n在OnMouseDown事件中，可以通过以下代码来获取选中行的索引：\n\ndelphi\nprocedure TForm1.DBGridEh1MouseDown(Sender: TObject; Button: TMouseButton;\n Shift: TShiftState; X, Y: Integer);\nvar\n GridCoord: TGridCoord;\nbegin\n GridCoord := DBGridEh1.MouseCoord(X, Y);\n if (GridCoord.Y > 0) and (Button = mbLeft) then\n begin\n DBGridEh1.SelectedRows.Clear;\n DBGridEh1.SelectedRows.CurrentRowSelected := True;\n end;\nend;\n\n\n以上代码中，DBGridEh1是一个TDBGridEh控件，SelectedRows是一个TBookmarkList对象，用于存储选中行的书签。设置SelectedRows.CurrentRowSelected为True，可以选中当前行。