liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

设计器 

粘贴优化
This commit is contained in:
JianjunLiu 2022-09-21 15:32:45 +08:00
parent 8cd8af1f06
commit 930f4a87d1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/tslvcldesigner.tsf
View File

@ -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);