如何在TStringGrid中显示行号？

Question

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

如果是使用LiveBinding，我无法弄清楚如何。

Answer 1

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

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