delphi - TStringGridで行番号を表示するにはどうすればよいですか？

Question

行番号を表示するFireMonkeyのTStringGridに列を作成するにはどうすればよいですか？

LiveBindingを使用している場合、その方法がわかりません。

Answer 1

フォーム/グリッドのOnGetValueイベントハンドラーには、そのパラメーターの1つとして行が渡されます。列が目的の列であることを確認し、行番号を返すだけです。

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