在Delphi中如何使用对象数组？(在线等待)(100分)

座

座间翔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #1

我的一个程序中需要设置一个10个标签的数组，请问如何设置，是不是用array[1。。10] of Tlabel？那定义后如何设置这10个标签在窗口上的位置和属性呢？
还有一个问题，在delphi中有无用来跳出循环的关键字，就象c++中的break

 

草

草央包包

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #2

1. array[1。。10] of Tlabel可以，
var
t:array[1..10] of Tlabel

t[0]:=Tlabel.create(self)
再设left,top属性即可
2. 也是break

 

座

座间翔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #3

那这些label在form上出现在哪儿，难道要一个一个的用代码调整属性，vb里面有一个
index属性就可以把对象作为数组访问，在delphi中有无类似的。

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #4

1.
var
lab: array[1..10]of TLabel
//最好设置成全局变量
...
begin
for i := 1 to 10 do lab := TLabel.Create;
lab.Parent := Form1;
lab.left := i*20;
lab.Top := 10;
lab.Caption := inttostr(i);
end;

2.
break;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #5

还要设置parent，以前有很多帖子说过的，搜索一下吧。

 

S

stargazer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #6

建议使用TList或者TStringList,用其Object属性存储Label对象;
另外,动态创建Label时应给其Parent赋值.

 

蝙

蝙蝠

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #7

delphi中的对象数组好像是系统自动维护的，直接拿来用就是了。是不是用不着定义？

 

F

flove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #8

在delphi的每一个VCL组件里都有一个Componentindex属性，利用它可以实现！

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #9

看来是初学者啊!
lable们的位置,当然要用程序来设置位置的.

 

L

lxn2philips

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #10

你的对象是运行期创建的

当然需要自己多写些代码了

 

Z

zxbyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #11

你还可以用构件的Tag属性

 

Z

zxbyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #12

在Dfw的全文搜索中搜就有一打关于这个。