====动态生成的控件，在程序中怎样调用！====(50分)

P

prtmon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #1

动态生成Label:
For i:=0 to 4 do
begin
LabelVar:=TLabel.create(self);
LabelVar.Name:='Label'+inttostr(i);
...LabelVar的设置属性过程;
end;

那么我在其它过程要改变其中一个Label的caption,怎样写代码

 

H

happycyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #2

label1.Caption := 'aaaa';

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #3

将LabelVar声明为本单元的全局变量既可！

 

L

luckywzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #4

LabelVar:=TLabel.create(self);
LabelVar.Name:='Label'+inttostr(i);
还要加一句:
LabelVar.parent:=self;
LabelVar.Caption:='XXXX'

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #5

定义一个一维数组保存动态生成的数组吧
var
MyLabel : Array [0..4] of TLabel;

For i:=0 to 4 do
begin
MyLabel := TLabel.create(self);
MyLabel.Parent := Self;
MyLabel.Name:= 'Label'+inttostr(i);
...
end;

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #6

bjaman 的方法，我也这样用的

 

Z

zj_mpy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #7

定义一个一维数组保存动态生成的数组吧
var
MyLabel : Array [0..4] of TLabel;

For i:=0 to 4 do
begin
MyLabel := TLabel.create(self);
MyLabel.Parent := Self;
MyLabel.Name:= 'Label'+inttostr(i);
...
end;

 

P

prtmon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #8

谢谢bjaman，也谢谢各位的关注！

 

P

prtmon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #9

多人接受答案了。