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

Question

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

通常我会使用OnCellClick(Column: TColumn)事件处理程序，但这不能按预期工作。使用dgRowSelect = False此过程会传递单击的列，但使用dgRowSelect = True此过程会传递第一列，而不管单击了哪一列。

我无法弄清楚调用参数OnCellClick传递的代码在哪里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有关文档的更多信息。

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