设计器

粘贴优化
2022-09-21 15:32:45 +08:00
parent 8cd8af1f06
commit 930f4a87d1
1 changed files with 3 additions and 3 deletions
@@ -1076,8 +1076,8 @@ type TVclDesigner = class(tvcform)
    begin
        if fcutcopyinfo then 
        begin
-            pastinfotonode(nd,fcutcopyinfo); 
-            if fcutcopyinfo["name"] then fcutcopyinfo := nil;    
+            r := pastinfotonode(nd,fcutcopyinfo); 
+            if fcutcopyinfo["name"] and not(r) then fcutcopyinfo := nil;    //如果失败就不清除内容
        end     
    end 
    function pastinfotonode(nd,data);
@@ -1089,7 +1089,7 @@ type TVclDesigner = class(tvcform)
        end 
        
        nnd := tc.ComponentCreater(nd,nd.Component.Cwnd);
-        if not nnd then return ;
+        if not nnd then return 1; //加入失败处理
        nnd.CreateName();    
        FVariableSelecter.additem(nnd);
        BindCwndMessage(nnd.Cwnd);