Delphi Firemonkey TGrid如何更新

Question

我有一個混合列的TGrid（ImageColumn和StringColumn）。 我可以使用onGetValue事件填充它，它可以正常工作。 我的問題是：

1. 如何強制整個網格重建並導致onGetValue事件？ 我正在使用UpdateStyle。

2. 如何更新網格中的單個單元格？

Answer 1

網格僅更新可見單元格！ Grid1.UpdateStyle強制網格重建並導致onGetValue事件，但速度很慢。 Grid1.ReAlign要快得多。

一旦細胞變得可見，它們就會被更新。

更新1個單元格：

procedure TForm1.UpdateCell(col, row: integer);
var
  cell: TStyledControl;
begin
  cell := Grid1.Columns[col].CellControlByRow(row);
  if Assigned(cell) then
    cell.Data := 'Note: use the same datasource as OnGetValue';
end;

當行永遠不可見時，不會分配單元格。

Answer 2

另一種選擇是調用Grid1.beginUpdate; 進行更改，然后調用Grid1.endupdate; 這將導致可見網格重新計算和重繪。