设计器

修正初始位置问题
2022-12-05 15:54:17 +08:00
parent dc16fb9d4e
commit 0bf9fdc972
2 changed files with 24 additions and 27 deletions
@@ -831,6 +831,9 @@ 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(); 
+            o1 := r.Cwnd;
+            o1.setpublish("left",o1.left,nil);
+            o1.setpublish("top",o1.top,nil);
        end 
        return ;
    end