vault backup: 2025-08-31 20:46:38

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.
 ```