更新

更新

designer/tediterform.tsf

@@ -722,8 +722,8 @@ type TEditerForm = class(TVCform) //
         
         flogout:tbtn;
         flogin:tbtn;   
-        cancel_clk; 
-        save_clk;
+        [weakref]cancel_clk; 
+        [weakref]save_clk;
         function Create(AOwner);override; //构造
         begin
             inherited;
@@ -925,7 +925,7 @@ end
         end 
         property OnOkClicked read FOnOkClick write FOnOkClick;
         private 
-        FOnOkClick;
+        [weakref] FOnOkClick;
         function GetWndInfo();
         begin
             return %% object tformatinfownd1:tformatinfownd
@@ -1098,7 +1098,7 @@ end
     property BtnClick read FBtnClick write FBtnClick;
     
     private 
-    FBtnClick;
+    [weakref]FBtnClick;
     FChecked;
     FEditers;
     FLabels;
@@ -1236,7 +1236,7 @@ type TBlockManager=class(TVCForm)
         FSaveClick := FEditer := Fbtns  := FList := nil;
     end 
     private 
-    FSaveClick;
+    [weakref]FSaveClick;
     FEditer;
     Fbtns ;
     FList;
@@ -1457,7 +1457,7 @@ type tsearchdir = class(TCustomControl)
         )) ;
         d := r;    
     end 
-    FOnsaveclick;
+    [weakref]FOnsaveclick;
     Fidx;
     FFolder;
     Farraya;

designer/tslvcldesigner.tsf

@@ -1495,7 +1495,7 @@ end
 type tfilesinfo = class() //控件树存储对象
     private
     fdesginer;
-    fcompclick;
+    [weakref]fcompclick;
     fimg;
     fparent;
     public 
@@ -1710,7 +1710,7 @@ type TDesigImageList = class(TControlImageList)
 end 
 type TDesignertoolbars = class(TPageControl)  //设计器控件按钮
     private
-    FToolbars;
+    [weakref]FToolbars;
     FLabels ;
     fimg;
     

designer/utslcodeeditor.tsf

@@ -33,7 +33,7 @@ type TPageItem=class() //
     property Caption read FCaption write SetCaption; //标题
     property BitmapA read FBitmapA write SetBitmapA; //前面的图标
     property BitmapB read FBitmapB write SetBitmapB; //后面的关闭图标
-    tag;  //绑定变量
+    [weakref]tag;  //绑定变量
     Rect; //区域
     protected
     function SetCaption(s);
@@ -64,7 +64,7 @@ type TPageItem=class() //
     FBitmapB;
     FBitmapA;
     FCaption;
-    FOwner;
+    [weakref]FOwner;
 end
 type TPage=class(TCustomControl) //标签
     function Create(AOwner)
@@ -520,8 +520,8 @@ type TPage=class(TCustomControl) //
             FDRageimglist := FImgs.Handle;
         end
     end
-    FCloseBtnClicked; //点击
-    fOnbmpbclick;
+    [weakref]FCloseBtnClicked; //点击
+    [weakref]fOnbmpbclick;
     FPageRect;
     FIs_Draging;
     FWill_Drag;
@@ -752,7 +752,7 @@ type TEditerAuxiliary=class(TPage) //
     end
     FEchoWnd;
     FFileFindWnd;
-    FOnCloseClick;
+    [weakref]FOnCloseClick;
     private
     Ftimer;
     FIgnoreSize;
@@ -1590,7 +1590,7 @@ type TPageEditer=class(TPage) //
         rc := ClientRect;
         return rc;
     end 
-    FPageItemOnRClick;
+    [weakref]FPageItemOnRClick;
 end
 type TTslChmHelp=class
     function SearchWord(s);
@@ -3947,10 +3947,10 @@ type TEditer=class(TCustomcontrol) //
     FSynHCS;
     FLastDispathTime;
     FIsFinding;
-    FOnPageEditerChanged;
+    [weakref]FOnPageEditerChanged;
+    [weakref]fOnPageItemSelChanged;
     FPageEditerMenu;
-    FPageEditerMenus;
-    fOnPageItemSelChanged;
+    FPageEditerMenus;    
     FReadDirs;
     FCurrentItemCode;
     FGoBackA; // := new TMyarrayB();
@@ -4562,7 +4562,7 @@ type TEditList=class(TComboBox)
     property MaxCoder read FMaxCoder write FMaxCoder;
     private
     FMaxCoder;
-    FOnEnterUp;
+    [weakref]FOnEnterUp;
 end
 type TEditerEchoWnd=class(TSynMemoNorm) //
     function Create(AOwner);override;