5,386
社区成员
发帖
与我相关
我的任务
分享怎么判断一个窗体是否已经创建?
我在按下某个按钮后弹出一个窗体;
在close这个窗体后再按该按钮进入这个窗体时,它就会出错.
按钮的onclick事件中的语句为:
form2:=tform.creat;
form2.show;
退出窗体中是用close;把窗体关掉的.
我用的是delphi5,操作系统为NT
在close这个窗体后再按该按钮进入这个窗体时,它就会出错.
按钮的onclick事件中的语句为:
form2:=tform.creat;
form2.show;
退出窗体中是用close;把窗体关掉的.
我用的是delphi5,操作系统为NT
...全文
请发表友善的回复…
发表回复
blazingfire 2002-08-29
- 打赏
- 举报
if Form2<>nil then
//Form2 exists.
else
//Form2 does not exist,so it need be created!
//Form2 exists.
else
//Form2 does not exist,so it need be created!
knock 2002-08-29
- 打赏
- 举报
if assign(form2)=nil then
form2:=tform2.create(self);
else
form2.show;
form2:=tform2.create(self);
else
form2.show;
ssl2000 2002-08-29
- 打赏
- 举报
form2的ondestroy事件中写
form2:=nil;
再加上
if form2=nil then
form2:=tform2.creat(application);
else
form2.show;
form2:=nil;
再加上
if form2=nil then
form2:=tform2.creat(application);
else
form2.show;
neighborgirl 2002-08-29
- 打赏
- 举报
谢谢两位,我马上试一下!
luoshumeng 2002-08-29
- 打赏
- 举报
if form2=nil then tform.creat;
form2.show;
form2.show;
xqjt 2002-08-29
- 打赏
- 举报
判断Assign(Form2)是否为真
goease 2002-08-29
- 打赏
- 举报
象knock(天天睡觉)这么写，肯定没有问题的
chilli7811 2002-08-29
- 打赏
- 举报
你的form在程序初始化的时候是否已经创建，如果已经创建，你在close后当然不可以再create，除非你用的是Release；不过他们上面的做法也可以。
