CxGrid按照查询结果自动创建字段

procedure TCFormQuery.sQryAfterOpen(DataSet: TDataSet);
begin
inherited;
with gResultDBTv do
begin
(DataController as IcxCustomGridDataController).DeleteAllItems;
(DataController as IcxCustomGridDataController).CreateAllItems(False);
end;
end;