delphi – 当dgRowSelect设置为True时,检测在TDBGrid中单击了哪个单元格？

在Delphi 2010中有什么方法可以检测当dgRowSelect设置为True时单击了哪个单元格？

通常我会使用OnCellClick(Column：TColumn)事件处理程序,但这不能按预期工作.使用dgRowSelect = False,此过程将传递已单击的列,但是使用dgRowSelect = True,无论单击哪一列,此过程都将传递给第一列.

我无法解决代码调用OnCellClick传递TColumn参数的位置,如果我能找到我可能能够解决如何修复这种奇怪的行为.

解决方法

您可以使用鼠标坐标来获取列.调用TDBGrid.MouseCoord后,返回的TGridCoord.X包含列号,Y包含行(当然,您已经拥有)：

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  Pt: TPoint;
  Coord: TGridCoord;
  ClickCol: Integer;
begin
  Pt := DBGrid1.ScreenToClient(Mouse.CursorPos);
  Coord := DBGrid1.MouseCoord(Pt.X,Pt.Y);
  ClickCol := Coord.X;
  ShowMessage('You clicked column ' + IntToStr(ClickCol));
end;

关于TGridCoord在documentation的更多信息.

使用与我的答案your previous question相同的应用程序进行测试.