如何在 TStringGrid 中显示行号？答案

【问题标题】：How to display row number in TStringGrid?如何在 TStringGrid 中显示行号？
【发布时间】：2013-03-04 19:02:17
【问题描述】：

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

如果是使用 LiveBinding，我不知道怎么做。

【问题讨论】：

【解决方案1】：

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

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

【讨论】：

感谢您为我指明正确的方向。我有 Delphi XE2，所以这个事件没有实现。我修改了 FMX.Grid 的 TStringGrid.GetValue 以调用 FOnGetValue 并在代码中分配了事件处理程序，它可以工作。
XE2 中仍有该事件，但它返回 Variant 而不是 TValue。
有，但是没有实现。它从未被调用，也从未暴露。我实现了它。谢谢。
对不起，我的错误。我没有意识到你在谈论 TStringGrid。