怎样只建立一个窗口?(50分)

A

AKang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-20

• #1

我在MDI主窗口按菜单某项建立一个子窗口用下面代码：
var
myForm:TForm1;
begin
myForm:=TForm1.Create(Self);
myForm.Show;
end;
但是，如果再按一下，又会建立一个新的，怎样才能保证只建立一个实例。不要告诉我设一个变量判断。

 

D

djdsz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-20

• #2

for i:=0 to mainform.mdichildcount-1 do
if (mainform.mdichildren is TForm1) then
exit;
myForm:=TForm1.Create(Self);

 

A

AKang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-20

• #3

接受答案了.