关于FUNCTION里调用显示Label的问题(100分)

N

namelysweet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #1

我想在FUNCTION里面显示比如Lable.Caption，所以就创建了一个对象

...

Sender:=TLable.Create(?);
Sender.Caption:='jfoejfoiw'
Sender.Left:=20;
Sender.Top:=63;
...
可是
Sender:=TLable.Create(Application);这样虽然没有错误，但是显示不了...

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #2

var
sender:tlable;

Sender:=TLable.Create(form1);
sender.parent:=form1;
Sender.Caption:='jfoejfoiw'
Sender.Left:=20;
Sender.Top:=63;

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #3

少设置了一个parent属性

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #4

搞个新鲜的
procedure TForm1.Button2Click(Sender: TObject);
var
s:tlabel;
begin
application.CreateForm(tlabel,s);
s.Top:=20;
s.Parent:=self;
s.Caption:='dddddddddddd'
end;

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #5

看来都已经解决了咯，提醒一下，记得释放资源哦

 

N

namelysweet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #6

我说的是在Function里面，不是过程..不过我已经解决了[]

 

P

PFans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #7

放在函数里不也一样么？
procedure TForm1.DisplayLabel;
var
MyLabel: TLabel;
begin
MyLabel := TLabel.Create(self);
MyLabel.Parent := self;
MyLabel.Caption := 'MyLabel';
MyLabel.Top := 10;
MyLabel.Left := 10;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DisplayLabel;
end;