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 begin
if fcutcopyinfo then if fcutcopyinfo then
begin begin
pastinfotonode(nd,fcutcopyinfo); r := pastinfotonode(nd,fcutcopyinfo);
if fcutcopyinfo["name"] then fcutcopyinfo := nil; if fcutcopyinfo["name"] and not(r) then fcutcopyinfo := nil; //如果失败就不清除内容
end end
end end
function pastinfotonode(nd,data); function pastinfotonode(nd,data);
@ -1089,7 +1089,7 @@ type TVclDesigner = class(tvcform)
end end
nnd := tc.ComponentCreater(nd,nd.Component.Cwnd); nnd := tc.ComponentCreater(nd,nd.Component.Cwnd);
if not nnd then return ; if not nnd then return 1; //加入失败处理
nnd.CreateName(); nnd.CreateName();
FVariableSelecter.additem(nnd); FVariableSelecter.additem(nnd);
BindCwndMessage(nnd.Cwnd); BindCwndMessage(nnd.Cwnd);