如何在TStringGrid中显示行号？

Question

如何在FireMonkey的TStringGrid中创建一列来显示行号？

如果使用LiveBinding，我无法理解如何实现。

- Marcus Adams

Answer 1

您的表单/网格OnGetValue事件处理程序会将行作为其参数之一传递。只需验证该列是否是您想要的，然后返回行号即可。

function Form1.Grid1GetValue(const Row, Col: Integer): TValue;
begin
  if Col = 0 then
    Result := TValue.From<Integer>(Row);
end;

- Mike Sutton

---

谢谢您指引我正确的方向。我使用的是Delphi XE2，所以这个事件没有被实现。我修改了FMX.Grid的TStringGrid.GetValue方法来调用FOnGetValue，并在代码中分配了事件处理程序，现在它可以正常工作了。 - Marcus Adams

XE2版本中仍然有该事件，但返回的是Variant类型而不是TValue类型。 - Mike Sutton

它已经存在，但尚未实现。它从未被调用或公开。我已经实现了它。谢谢。 - Marcus Adams

抱歉，我的错误。我没有意识到你在谈论TStringGrid。 - Mike Sutton