动态创建窗体的问题!!!(0分)

H

holyszq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #1

有Form1,Form2.....Form(N),
创建时用
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(NIL);
FORM2.Update;
FORM2.Show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3:=TForm3.Create(NIL);
FORM3.Update;
FORM3.Show;
end;
......
有没有更好的、更简洁办法来创建不同窗体呢？

 

D

del520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #2

看不懂你是什么意思,代码你也写出来了.

 

H

holyszq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #3

就是如果我有100多个窗体，那不是要重复写100多个
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3:=TForm3.Create(NIL);
FORM3.Update;
FORM3.Show;
end;
之类的代码吗？

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #4

var forms:array[1..1000]of tform;
i:integer;
begin
for i:=1 to 1000 do
begin
forms:=tform.create(nil);
forms.update;
forms.show;
end;
end;

 

O

own_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #5

同意楼上.

 

H

holyszq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #6

可以吗？打样创建出来的窗体不是空白的吗？
我要的是主窗体里已经存在的窗体动态的创建出来!!!