gtk

优化最大化最小化 等消息

designer/tediterform.tsf

@@ -554,7 +554,7 @@ type TEditerForm = class(TVCform) //
         end   
         d := FEdter.GetHistoryFiles();
         if ifarray(d) and d then 
-        begin 
+        begin         
             Exportfile(ftstream(),"",FHistoryPath,d);
         end 
         d := FEdter.GetFindHistory();

designer/tslvcldesigner.tsf

@@ -387,7 +387,7 @@ type TVclDesigner = class(tvcform)
     end 
     
     function WMSYSCOMMAND(o,e);override;
-    begin        
+    begin  
         case e.wparam of 
             SC_MAXIMIZE:
             begin
@@ -795,6 +795,13 @@ type TVclDesigner = class(tvcform)
         if e then e.skip := true;
     end 
     private //节点点击
+    function windowactive(o,e);
+    begin
+        if e.wparam  then 
+        begin
+            ClickComponent(o,e);
+        end 
+    end 
     function ClickComponent(o,e); //点击组件选择
     begin
     {**
@@ -903,7 +910,8 @@ type TVclDesigner = class(tvcform)
                     e.skip := true;
                     CloseShowForm();  //并保存窗口信息
                 end ;  
-            wnd.bindmessage(wnd.WM_NCLBUTTONDOWN,thisfunction(ClickComponent));
+            //wnd.bindmessage(wnd.WM_NCLBUTTONDOWN,thisfunction(ClickComponent));
+            wnd.bindmessage(wnd.WM_ACTIVATE,thisfunction(windowactive));
             //WM_NCLBUTTONUP wnd.
             if  (wnd is class(TVCForm)) then 
             begin