delphi - Firemonkey MouseToCell 等效项

Question

在 Delphi VCL 中，如果我想查看鼠标悬停在 TStringGrid 的哪个单元格(列和行)上，我会使用 MouseToCell。此方法不再适用于 FireMonkey 应用程序的 Delphi (XE2) 中。有谁知道我如何确定鼠标所在的单元格？ OnMouseMove 有 X 和 Y 值，但这些是屏幕坐标而不是单元格坐标。

非常感谢。

Answer 1

TCustomGrid 中实际上有一个 MouseToCell 方法，StringGrid 继承了该方法，但它是私有(private)的。查看其源代码，它使用了 ColumnByPoint 和 RowByPoint 方法，幸运的是这些方法是公共(public)的。

“column”返回一个TColumn，如果没有列则返回 nil。 'row' 返回一个正整数，如果没有行则返回 -1。此外，第一行不关心行数，它只考虑行高并基于此返回行号，即使没有行也是如此。另外，我应该注意到，网格标题上的行为是有问题的。无论如何，示例示例可能如下所示:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
var
  Col: TColumn;
  C, R: Integer;
begin
  Col := StringGrid1.ColumnByPoint(X, Y);
  if Assigned(Col) then
    C := Col.Index
  else
    C := -1;
  R := StringGrid1.RowByPoint(X, Y);

  Caption := Format('Col:%d Row:%d', [C, R]);
end;