From 8e98d4b78be1d3da2ac3a07f75694399e6776295 Mon Sep 17 00:00:00 2001 From: sgwp <63001967@qq.com> Date: Sun, 27 Apr 2025 17:37:20 +0800 Subject: [PATCH] =?UTF-8?q?=E6=9B=B4=E6=96=B0=E8=A1=A8=E6=A0=BC=E5=88=97?= =?UTF-8?q?=E8=AE=BE=E7=BD=AE=E9=97=AE=E9=A2=98?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Dp10RepoV1/public10/design/U_WindowFormdesign.pas | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas index 912c38b..2f6db6f 100644 --- a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas +++ b/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