按一个键，创建多个同样的窗体，怎么回事 ( 积分: 0 )

C

chzhwenfigo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #1

procedure TF_class.Button1click(Sender: TObject);
begin
f_class:=tf_class.Create(application);
f_class.show;
end;
每按一下Button1，则创建一个F_class窗体，而我的本意是激活F_class,怎么办呢？

 

C

chzhwenfigo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #2

procedure TF_class.Button1click(Sender: TObject);
begin
f_class:=tf_class.Create(application);
f_class.show;
end;
每按一下Button1，则创建一个F_class窗体，而我的本意是激活F_class,怎么办呢？

 

A

ak_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #3

if not assigned(f_class) then//查看窗口是否存在，不存在就创建
begin
f_class:= tf_class.Create(Application);
f_class.Show;
end
else
f_class.BringToFront;

 

C

chzhwenfigo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-25

• #4

接受答案了.