procedure Tmain.CustomItem16Click(Sender: TObject); begin if findmdiwindow=true then begin showmessage('请关闭当前窗口');exit;end; flag:=1; planmanage:=tplanmanage.create(self); factoryname:='一分厂'; planmanage.Caption:=planmanage.Caption+'-['+factoryname+']';
begin
if findmdiwindow=true then begin
showmessage('请关闭当前窗口');exit;end;
flag:=1;
planmanage:=tplanmanage.create(self);
factoryname:='一分厂';
planmanage.Caption:=planmanage.Caption+'-['+factoryname+']';
end;
2、用copy()函数。
try
frm_xx:=tfrm_xx.create(application);
frm_xx.show;
finally
frm_xx.free;
end;