界面库

不销毁根节点

funcext/tvclib/tslvcl.tsf

@@ -527,6 +527,14 @@ type tapplication=class(tcomponent)
         CreateHandle();
         FApplicationWindow.bindmessage(WM_ACTIVATEAPP,thisfunction(WMACTIVATEAPP));
     end
+    function Notification(a,op);override;
+    begin
+        inherited;
+        if a=Fmainform and op="recycling" then 
+        begin
+            Fmainform := nil;  
+        end 
+    end 
     function createform(classname,varable);
     begin
         {**
@@ -537,7 +545,8 @@ type tapplication=class(tcomponent)
         if paramcount<2 then exit; //±äÁ¿²»¹»			
         if classname is class(tcomponent)then
         begin
-            if not(FApplicationWindow)then initialize();
+            //if not(FApplicationWindow)then 
+            initialize();
             varable := createobject(classname,FApplicationWindow);
             if varable is class(TVCForm)then
             begin
@@ -4942,7 +4951,8 @@ type tapplicationwindow=class(TWinControl)
     end
     Function DoWMCLOSE(o,e);override;
     begin
-        Recycling();
+        //Recycling();
+        DestroyComponents();
         _wapi.PostQuitMessage(0);
     end
     function DoCnNotify(o,e);override;