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

Question

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

通常，我将使用OnCellClick(Column: TColumn)事件处理程序，但这无法正常工作。 在dgRowSelect = False此过程将传递被单击的列，但是在dgRowSelect = True此过程将传递到第一列，而不管单击哪个列。

如果我发现我可能能够弄清楚如何解决这种奇怪的行为，我将无法确定调用OnCellClick的代码在TColumn参数中传递的TColumn 。

Answer 1

您可以使用鼠标坐标来获取列。 调用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更多信息。

使用与我对上一个问题的回答相同的应用程序进行了测试。