delphi - CXGrid : ApplyBestFit jerking

Question

我运行此查询:

procedure TForm1.cxButton1Click(Sender: TObject);
begin
cxGrid1DBTableView1.ClearItems;
DataModule2.ACRQuery1.Close;
DataModule2.ACRQuery1.SQL.Clear;
DataModule2.ACRQuery1.SQL.Text := ADVMemo1.Lines.Text;
AdvMemo1.UpdateWrap();
try
 DataModule2.ACRQuery1.Open;
 except
   on E:Exception do
   begin
     MessageDlg('Napaka pri izvedbi : ' + E.ClassName,
                mtError, [mbOK], 0);
   end;
   end;
 cxGrid1DBTableView1.DataController.CreateAllItems;
 cxGrid1DBTableView1.ApplyBestFit();
end;

但是，当查询显示在网格中时，我注意到，在一瞬间，列正常显示，然后应用最佳拟合。看起来像个 SCSS 。

现在，我不知道这种行为是设计使然还是我在错误的地方应用了拟合。我可以做什么来避免这种情况？

感谢 Uli 的建议，这似乎有所改善:

cxGrid1DBTableView1.DataController.CreateAllItems;
cxGrid1DBTableView1.BeginUpdate(); 
cxGrid1DBTableView1.ApplyBestFit();
cxGrid1DBTableView1.EndUpdate();

Answer 1

尝试添加 BeginUpdate/EndUpdate 对。