有这样一个构思:有1个MDIForm,上面有2个Button,分别管理1个MDIChild(available form )。Button的功能是创建MDIChild,如果这个MDIChild已经存在,那么就显示这个Form.主要目的是为了在一个MDIChild的事务没有处理完之前,转向另外一个MDIChild,处理完第二个后,再转向前一个MDIChild未处理完的事务。
我的问题是:Button如何判断MDIChild是否已经存在?
如果buttonclick程序这样写:
form2:=Tform2.create(self);
form2.show;
那么判断form2是否存在的语句必须在这之前,但是这时候form2还没有创建阿!
在线等待1小时,100分相送,否则只有等到国庆节之后哦!:)
我的问题是:Button如何判断MDIChild是否已经存在?
如果buttonclick程序这样写:
form2:=Tform2.create(self);
form2.show;
那么判断form2是否存在的语句必须在这之前,但是这时候form2还没有创建阿!
在线等待1小时,100分相送,否则只有等到国庆节之后哦!:)
解决方案 »
- 过年了,祝D版的兄弟伙,拿到一个大红包。 还有我想问问做一个出色产品经理应该从什么地方开始!
- 如何保存 TListView 内的内容到文件?
- 关于线程问题
- 关于编译完成后的exe文件运行时的问题!
- dxdbgrid的高手进来。
- 有没有这样的软件。可以将一个网站的所有相关链接网页都下载下来(在线)
- 帮帮忙啊,确实没有办法了,打印问题
- Borland 公司收购ESTIMATE Professional, 提升软件开发规范及可预见性
- 如何实现cd播放器的上一曲(用mediaplayer)
- 为什么csdn没有自动发信给我?我有选择自动发信了。
- 一个连我自己也感到有点怪的问题,请大家帮忙看看=》
- 怎样可以在win98下得到本机的硬盘序列号?高分请教!
begin
form2:=Tform2.create(self);//如果没有的话就创建
form2.show;
end
esle
form2.BringToFront //存在的话就置为当前
然后ISNIL()
begin
form2:=Tform2.create(self);
form2.show;
end
else
Form2.Show;
这样用的话要注意:释放窗体时要用
Form2.Free;
Form2 := nil;
或
FreeAndNil(Form2);
否则判断会失效
手边现在没有delphi,只好以后试试了。