From 0d28e50ada3527169857e28d219ba82ff1f2d6be Mon Sep 17 00:00:00 2001 From: LanHeron Date: Sun, 31 Aug 2025 20:46:38 +0800 Subject: [PATCH] vault backup: 2025-08-31 20:46:38 --- .../相关操作/4.0-other/999.Delphi脚本记录.md | 18 +++--------------- 1 file changed, 3 insertions(+), 15 deletions(-) diff --git a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md index ef8e476d..3d4230ce 100644 --- a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md +++ b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md @@ -851,34 +851,22 @@ end. ![](assets/Pasted%20image%2020250831204430.png) -写入脚本如下： +写入脚本如下：（注意，需要引入新的库，请使用完整的引入库） ```delphi -uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs, - -     CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas,cxRadioGroup; +uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas,cxRadioGroup; var -   trg: TcxRadioGroup; - begin -   trg := TcxRadioGroup(Sender); -   if trg.itemindex = 0 then -   begin - +//gbcxtsCusPage_1是组合框的控件名      gbcxtsCusPage_1.visible := false; -   end -   else begin -      gbcxtsCusPage_1.visible := true; -   end; - end. ``` \ No newline at end of file