如何避免重复打开窗口(50分)

3

328xy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #1

一事件通过：
Form1:=TForm1.Crate(application);
Form1.show;
创建并打开窗口
我如何判断窗口已经创建，避免重复创建和打开同一窗口呢

 

D

delphing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #2

if assigned(form1) then
showmessage('running');

 

A

anqinyun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #3

if Form1=nil then
Form1:=TForm1.Crate(application)
else
Form1.show;

 

娃

娃娃2672

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-22

• #4

if Formmain.MDIChildCount=0 then
Application.CreateForm(TTypeForm, TypeForm);

 

L

lwowo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-22

• #5

if Application.findcomponent('FormQrGoodsInfo')=nil then
application.createform(tFormQrGoodsInfo,FormQrGoodsInfo);

 

W

woyaoying

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-22

• #6

if form1 = nil then
form1 := TForm1.create(self);
Form1.show;