From 930f4a87d1de5c58f8554c50f81f8944a0c940db Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Wed, 21 Sep 2022 15:32:45 +0800
Subject: [PATCH] =?UTF-8?q?=E8=AE=BE=E8=AE=A1=E5=99=A8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

绮樿创浼樺寲
---
 designer/tslvcldesigner.tsf | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/designer/tslvcldesigner.tsf b/designer/tslvcldesigner.tsf
index 1860036..4ff9f1d 100644
--- a/designer/tslvcldesigner.tsf
+++ b/designer/tslvcldesigner.tsf
@@ -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);