5,388
社区成员
发帖
与我相关
我的任务
分享如何做到只打开一个窗体实例？
点击按钮打开一个窗体，再次点击的话，如果先前打开的窗体还没有关闭，则直接显示，不需要再创建，但是如果已经关闭，则要重新创建（为了释放资源，应该在窗体关闭的时候把它释放掉）。
如何实现以上功能？
如何实现以上功能？
...全文
请发表友善的回复…
发表回复
shixueli 2004-10-28
- 打赏
- 举报
谢谢支持！
zhangheaaa 2004-10-28
- 打赏
- 举报
if (Application.FindComponent('form2') as TForm)=nil then
begin
form2 := Tform2.create(nil);
form2.parent :=panel1;
end
form2.show;
begin
form2 := Tform2.create(nil);
form2.parent :=panel1;
end
form2.show;
zhangheaaa 2004-10-28
- 打赏
- 举报
if (Application.FindComponent('form2') as TForm)=nil then
begin
form2 := Tform2.create(nil);
form2.parent :=panel1;
end
form2.show;
begin
form2 := Tform2.create(nil);
form2.parent :=panel1;
end
form2.show;
