Delphi怎能实现像VB一样的控件数组呢？(50分)

S

Seven.Orient

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-05

• #1

 

D

djdsz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-05

• #2

自己定义。

var
ControlArray:array of TComponent;

 

S

Seven.Orient

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-05

• #3

还是不明白；列如：
对30个checkbox控件，要对每一个checkbox的Onclick事件里写代码触发这个事件。

 

S

Seven.Orient

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-05

• #4

我知道了
设置Tag属性。。。^_^

 

R

riverfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-05

• #5

var
ArrayBoxs: Array of TCheckBox;
begin
SetLength(ArrayBoxs, 30);
Arrayboxs[0] := ....
.....
ArrayBoxs[29] := ....;
end;

 

W

wrksky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-06

• #6

var controlArray :array of Tcheckbox;
begin
n:=30;
setlength(controlArray,30);
for i:=0 to 29 do
begin
controlArray:=Tcheckbox.create(Self);
controlArray.parent:=form1;
controlArray.onclick:=//要添加的事件
controlArray.setbounds( )//需要的top,left,width,height;
end;

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-16

• #7

多人接受答案了。