From 650d79c6770141e39b220e5125465ac3b4a45022 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Tue, 6 Sep 2022 08:53:59 +0800
Subject: [PATCH] Update tslvcl.tsf

application
---
 funcext/tvclib/tslvcl.tsf | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/funcext/tvclib/tslvcl.tsf b/funcext/tvclib/tslvcl.tsf
index 9329b9b..481dec9 100644
--- a/funcext/tvclib/tslvcl.tsf
+++ b/funcext/tvclib/tslvcl.tsf
@@ -530,9 +530,16 @@ type tapplication=class(tcomponent)
     function Notification(a,op);override;
     begin
         inherited;
-        if a=Fmainform and op="recycling" then 
-        begin
-            Fmainform := nil;  
+        if op="recycling" then 
+        begin 
+            if a=Fmainform  then 
+            begin
+                Fmainform := nil;  
+            end 
+            if FApplicationWindow=a then 
+            begin
+                FApplicationWindow := nil;    
+            end 
         end 
     end 
     function createform(classname,varable);
@@ -4951,8 +4958,7 @@ type tapplicationwindow=class(TWinControl)
     end
     Function DoWMCLOSE(o,e);override;
     begin
-        //Recycling();
-        DestroyComponents();
+        Recycling();
         _wapi.PostQuitMessage(0);
     end
     function DoCnNotify(o,e);override;