界面库

优化 recycling 通知
2022-09-01 17:28:46 +08:00
parent 8df9471fed
commit 5edd6251c4
10 changed files with 50 additions and 33 deletions
@@ -1,6 +1,6 @@
 object e_actionmain1:e_actionmain
   caption="action 范例"
-   height=520.0
+   height=520
   left=451
   onclose=e_actionmain1_close
   popupmenu=popupmenu1
@@ -735,11 +735,7 @@ type TDVirutalWindow = class(TCustomControl)
    function Recycling();override;
    begin
        inherited;
-        if FBindComponent is class(TComponent) then 
-        begin
-            FBindComponent.Recycling();
-            FBindComponent := nil;
-        end 
+        FBindComponent := nil;
    end 
    property BindComp read FBindComponent write SetBindComponent;
    property WindowFileds read FWindowFileds write FWindowFileds;