超级菜鸟的问题(10分)

六

六小灵通

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-23

• #1

这段代码错在哪里了啊?
procedure TForm1.Button1Click(Sender: TObject);
var
Form2 :TForm;
Button2 : TButton;
begin
Form2 := TForm.Create(Application);
Form2.Show;
Button2 := TButton.Create(TForm1);
end;

 

N

nakata_wang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-23

• #2

Button2 := TButton.Create(TForm1);
没有TForm1这个东东存在啊，[]

 

木

木桩

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-23

• #3

对，既然你是在TForm1里的事件，就可以直接这样写
Button2 := TButton.Create(Self);
或 Button2 := TButton.Create(Form1)
//TForm1不是实例，是个类

//还有这个TForm，你没覆盖过这个类的话，不能这样直接TForm.Create的
Form2 := TForm.Create(Application)

TForm是个虚类，我们平常创建的TForm1就是由TForm继承而来的。要Create只能写一个TForm的子类TForm2，然后Form2 := TForm2.Create(Application);

 

六

六小灵通

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-23

• #4

to木桩:
thank you!

 

六

六小灵通

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-23

• #5

接受答案了.