★★★★★★★★★★★简单错！！！★★★★★★★★★★★(50分)

C

chbqq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-02

• #1

TT=class(TButton)
public
Ed:TEdit;
Constructor Create;
end;
var
Form1: TForm1;
TA:TT;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
TA:=TT.Create;
TA.Parent:=Self;
TA.SetBounds(0,0,100,100);
TA.Show;
end;

{ TT }
constructor TT.Create;
begin
Ed:=TEdit.Create(Form1);
Ed.Parent:=Form1;
Ed.SetBounds(5,5,50,20);
Ed.Show;
end;
请问哪里错？
[&# 83;mg&# 093;http://i0.5ilog.com/mybbs/42/46/9b/sys/k/751862.jpg[/img]

 

C

chbqq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-02

• #2

[][][][]没人知道

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-02

• #3

Ed:=TEdit.Create(Form1);
<<-- 这里可能有问题，Ed是TA中的对象，不能这么创建。
Ed.Parent:=Form1;
<<-- 这里也是。
Ed.SetBounds(5,5,50,20);
Ed.Show;

 

C

chbqq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-05

• #4

换成TA有错啊，那要怎么改才对呢？

 

C

chbqq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #5

回答不上来的估计都和我一样菜!

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #6

顶！我也想知道错在哪里 ？

 

F

fengfan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #7

在函数create 里面添加.
inherited Create(Form1);
不然不会执行父类的create操作.

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #8

TT=class(TButton)
public
Ed:TEdit;
end;
var
Form1: TForm1;
TA:TT;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
TA:=TT.Create(self);
TA.Parent:=Self;
TA.SetBounds(0,0,100,100);
end;

 

C

chbqq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-10

• #9

+在TT.Create就解决了!