编辑器

优化编译

funcext/tvclib/tslvcl.tsf

@@ -166,7 +166,12 @@ type tapplication=class(tcomponent)
         FApplicationWindow.bindmessage(WM_ACTIVATEAPP,thisfunction(WMACTIVATEAPP));
     end
     function Notification(a,op);override;
-    begin        
+    begin   
+        if op=opclosemainwnd and a= Fmainform then 
+        begin
+            FApplicationWindow._send_(WM_CLOSE,0,0);
+            return ;
+        end     
         if op=opRecycling then 
         begin 
             if a=Fmainform  then 
@@ -210,7 +215,7 @@ type tapplication=class(tcomponent)
         **}
         CallMessgeFunction(Foldforminfo["close"],o,e);
         if e.skip then exit;
-        FApplicationWindow._send_(WM_CLOSE,0,0);
+        //FApplicationWindow._send_(WM_CLOSE,0,0);
     end
     function mainformminmize(o,e);
     begin
@@ -1029,6 +1034,12 @@ type TVCForm = class(TScrollingWinControl)
             end
         end
     end
+    function DoWMCLOSE(o,e);override; 
+    begin
+        inherited;
+        if e.skip then exit;
+        else NotifyComponent(self(true),opclosemainwnd,nil);
+    end 
     function Notification(AComponent:TComponent;Operation:TOperation);override;
     begin
         {**

funcext/tvclib/utslvclconstant.tsf

@@ -420,7 +420,7 @@ type tconstant=class(talign,TAnchorKind,TFormStyle,TComponentState,TComponentSty
 end
 type TSLUICONST=class(tmacroconst,tconstant)
     static const WM_TRAY=0x464;static const opInsert="opInsert+";
-    static const opRemove="opRemove-";static const opRecycling="opRecycling-";
+    static const opRemove="opRemove-";static const opRecycling="opRecycling-";static const opclosemainwnd="~closemianwnd~";
 end
 type ws2def_h=class()
     static const AF_UNSPEC=0x0;static const AF_UNIX=0x1;