如何防止同一FORM多次产生(100分)

X

xxc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #1

一个主窗口，里面有很多FORM 我在需要时，单击菜单项按钮时，调出该FROM，但我每点一
次就出现一个，我想在没有该FORM 出现时，点击出现该FORM ，如已打开，就不在出现。
我的语句是：
BEGIN
FROM1：=TFORM1.CREATE(SELF) ;
FROM1.SHOW ;
END;
那位大虾帮帮忙，谢谢！

 

P

PLWang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #2

把form1.show 改成 form1.showmodal that's OK

 

S

sundart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #3

if form1 = nil then
form1 := Tform1.Create(self)
form1.show

 

T

thtfsyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #4

try
BZHFrm:=TBZHFrm.Create(nil);
with BZHFrm do
begin
ShowModal;
。。。
end;
finally
BZHFrm.Free;
end;

 

J

jiceyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-09

• #5

BEGIN
if not Assigned(form1) then
FROM1：=TFORM1.CREATE(SELF) ;
FROM1.SHOW ;
END; 不过要记住在FORM1的关闭事件中要有FORM1.FREE和FORM1:=NIL
不然你关闭FORM1后下次大不开了.
如果你用的是SHOWMODAL方法的话旧不用担心这个问题,但一定要调用.FREE方法释放资源
其实我也这两天才搞清础 花了不少银子哦 *_^

 

S

shangcm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-09

• #6

if not Form1.Visible then
begin
FROM1：=TFORM1.CREATE(SELF);
FROM1.SHOW;
end;

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-09

• #7

agree jiceyang,

 

X

xxc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-09

• #8

谢谢大家的帮助！谢谢！