cxGrid运行期间添加LevelView

  cxGrid := TcxGrid.Create(self);   InsertControl(cxGrid);   cxGrid.Align := alLeft;  cxGrid.Width := 240;   cxGrid.Name := 'cxGrid';   cxGrid.Font.Name := 'Times New Roman';  cxGridLevel := cxGrid.Levels.Add;  cxGridDBTableView := TcxGridDBTableView(cxGrid.CreateView(TcxGridDBTableView));  cxGridLevel.GridView := cxGridDBTableView;  cxGridDBTableView.DataController.DataSource := DataSource;  cxGridDBTableView.OptionsView.Footer := True;  cxGridDBTableView.OptionsView.GroupByBox := false;  cxGridDBTableView.OptionsView.NoDataToDisplayInfoText := '没有记录';  cxGridDBTableView.Filtering.CustomizeDialog := false;  cxGridDBTableView.OptionsCustomize.ColumnSorting := false;  cxGridDBTableView.OptionsData.Appending := false;  cxGridDBTableView.OptionsData.Deleting := false;  cxGridDBTableView.OptionsData.Inserting := false;  cxGridDBTableView.OptionsData.Editing := false;  cxGridDBTableView.FilterRow.Visible := True;  cxGridDBTableView.FilterRow.InfoText := '过滤条件 用%代替任意多字符 如:%27%';  with cxGridDBTableView.CreateColumn do  begin     DataBinding.FieldName := 'Qno';     caption := 'Qno';     Width := 40;     Summary.FooterKind := skCount;     Summary.FooterFormat := '行数';   end;  with cxGridDBTableView.CreateColumn do  begin     DataBinding.FieldName := 'custname';     caption := 'custname';     Width := 60;     Summary.FooterKind := skCount;   end;  with cxGridDBTableView.CreateColumn do   begin     DataBinding.FieldName := 'Entertime_Text';     caption := 'Entertime_Text';     Width := 50;   end;  with cxGridDBTableView.CreateColumn do   begin     DataBinding.FieldName := 'Remark2';     caption := 'Remark2';     Width := 60;   end;