窗口重复创建的小问题(50分)

我

我是一只鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #1

有一个简单的问题想问一下：
在Form1放一Button1,我想让button1按下后打开Form2.
var form2: Tform2;
begin
form2:=Tform2.create(Self);
form2.show;
end;
但每按一次就会产生一个form2，而我只想让它出现一个，不知要怎么做才可以？

 

E

eagleblue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #2

if FindWindow("tform2","form2")= null then
form2:=Tform2.create(Self);
form2.show

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #3

if not assigned(form2) then form2:=Tform2.create(Self);
form2.show;

 

S

sword_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #4

var form2: Tform2;
begin
if form2=nil then begin
form2:=Tform2.create(Self);
form2.show;
end;
end;

 

J

_joehill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #5

先判断是否有要创建窗体的实例，有则显示，没有就创建
begin
if not Assigned(Form1) then
Application.CreatForm(TForm1,Form1);
try
Form1.ShowModal;
finally
Form1.Free;
Form1:=nil;
end
else
Form1.ShowModal;
end;

 

B

blue2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #6

用showmodal。动态创建。
try
form2: Tform2.create(application);
form2.showmodal;
finally
form2.free;
end;

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #7

form2 -->autocreate forms

 

Y

yanlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #8

//我是通过如下方法判断
function form_created(FormName: string): boolean;
var
i, j: integer;
begin
FormName := Uppercase(trim(FormName));
j := 0;
for I := 0 to Screen.CustomFormCount - 1 do
begin
if Uppercase(trim(Screen.CustomForms.Name)) = FormName then
begin

result := True;
exit;
end;
end;
result := False;
end;

 

J

jinzuo007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #9

楼上的_joehill说的对，而且方便哈！

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-01

• #10

接受答案了.