主题：打开子窗体问题
tqtqtq
[专家分：10] 发布于 2006-11-09 21:33:00
在主窗体中通过菜单打开一个子窗体，再按一次同样的菜单时会再打开一个子窗体，如何才做到在打开了一个子窗体，按同样的菜单不再打开一个子窗体。如下面的代码要如何修改。
procedure TForm2.N5Click(Sender: TObject);
begin
form1:=Tform1.Create(application);
form1.Show ;
end;
回复列表 （共5个回复）
沙发
wealthy [专家分：1840] 发布于 2006-11-09 22:06:00
不要使用fsMDIForm窗口和fsMDIChild窗口,使用窗口普通窗口
procedure TForm2.N5Click(Sender: TObject);
var
Form1:tForm1;
begin
Form1:=tForm1.create(self);
Form1.showmodal;
end;
板凳
zwt [专家分：1230] 发布于 2006-11-10 09:55:00
procedure TForm2.N5Click(Sender: TObject);
begin
if not assigned(form1) then
form1:=Tform1.Create(application);
form1.Show ;
end;
3 楼
tqtqtq [专家分：10] 发布于 2006-11-12 22:31:00
按2楼朋友的做法是不再能打开多个同样的子窗体。但是当打开一个子窗体关闭后，再次打开时会出错。就算用了Action:=cafree也没用。要如何解决。
4 楼
mykgd [专家分：260] 发布于 2007-09-24 11:03:00
UP
5 楼
sky-_-520 [专家分：10] 发布于 2007-09-24 20:00:00
我是新手,帮你顶!!!高手快来呀!!!
我来回复
您所在位置：