编辑器

优化查找体验

designer/tslvcldesigner.tsf

@@ -831,6 +831,7 @@ type TVclDesigner = class(tvcform)
             FCurrentClikPos := o.ScreenToClient(xy[0],xy[1]);
             //FCurrentClikPos := array(e.lolparam,e.hilparam);//o1.screentoclient(e.lolparam,e.hilparam);   
             r := CreateComponent(); 
+            if not r then return MessageBoxA("控件放置位置不兼容!","提示",0,self);
             o1 := r.Cwnd;
             o1.setpublish("left",o1.left,nil);
             o1.setpublish("top",o1.top,nil);

designer/utslcodeeditor.tsf

@@ -3729,9 +3729,7 @@ type TEditer=class(TCustomcontrol) //
     end
     function TryDispatch();
     begin
-        {$ifdef linux}
-        return;
-        {$endif}
+
         t := now();
         if(t-FLastDispathTime)>0.25e-5 then
         begin