更新表格列设置问题

Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas

@@ -386,6 +386,7 @@ begin
       view.optionsCustomize.columnfiltering := true;
       mdesignCode := fDllFileName +'|'+mForm.name+ '|' + intTostr(fFormId) + '|' + grid.name;
       grid.EndUpdate ;
+
       CreateCxGridColumn( view,ADOQueryTmp,PWideChar(mdesignCode));
 
       //continue;
@@ -931,7 +932,8 @@ var
   view:TcxGridDBTableView;
 begin
   view:=nil;
-  with TToolButton( Sender ).Parent.Parent do
+
+  with GetParentForm(TToolButton( Sender )) do
   begin
     for i:=0 to ComponentCount-1 do
     begin