如何让一个窗口只能调用一次,避免重复多次调用!!!

tanzisen 2004-09-14 11:13:06
比如现在有一个MAINMENU子菜单N1,一个PANEL1,一个窗口FORM2。
当点击N1时,如何使FORM2显示在PANEL1上面,即FORM2的容器是PANEL1,
并且无论点击多少次N1,PANEL1上只显示一个FORM2,不会显示多个FOMR2。
...全文
83 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
tanzisen 2004-09-14
  • 打赏
  • 举报
回复
if form2=nil then
form2:=tform2.create(application);
form2.parent:=panel1;
form2.show;
leejiey 2004-09-14
  • 打赏
  • 举报
回复
if (Application.FindComponent('form2') as TForm)=nil then
begin
form2 := Tform2.create(nil);
form2.parent :=panel1;
end
form2.show;
cdsgajxlp 2004-09-14
  • 打赏
  • 举报
回复
if form2=nil then
begin
form2 := Tform2.create(nil);
form2.parent :=panel1;
form2.show;
end;
chengchong1979 2004-09-14
  • 打赏
  • 举报
回复
form2.showmodal
ssq237712 2004-09-14
  • 打赏
  • 举报
回复
if (FindComponent('form2') as TForm)=nil then
begin
form2 := Tform2.create(self);
form2.Name := 'form2';
form2.parent :=panel1;
form2.show;
end;
IwantFlay 2004-09-14
  • 打赏
  • 举报
回复
if (Application.FindComponent('form2') as TForm)=nil then
form2 := Tform2.create(nil);
form2.parent :=panel1;
form2.show;
IwantFlay 2004-09-14
  • 打赏
  • 举报
回复
最简单的让form2.showmodal; 呵呵

2,496

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧