怎样动态生成控件数组？大家来抢分吧！！！(100分)

Z

zhuoyuesky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-02

• #1

现在想根据数据库返回值，动态生成一个TGroupBox控件数组，并且在上面还要有几
个排列整齐的TLABEL控件。动态生成一个TGROUPBOX控件数组我已经做到了，但是还要在
上面需要显示出一些数据库的信息，我就不会了，希望指教！写的详细点。谢谢了！

 

A

aorgel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-02

• #2

for i:= 0 to iCount - 1 do
begin
gbX:= TGroupBox.Create(Self);
gbX.Tag:= i;
gbX.SetBounds(ll, tt + i * (hh + 1), ww, hh);
...
//利用TLABEL控件显示数据库信息
lblY[j]:= TLabel.Create(Self);
lblY[j].Parent:= gbX; //lblY[j]放在gbX上
lblY[j].Tag:= j;
...
end;

 

T

tianrei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-02

• #3

我给你抄了一个方法：
for i := 1 to 100 do
TLabel(FindComponent('Label'+IntToStr(ii))).Caption := 'abc'

有两种办法:一、用控件的tag属性来标识不同的Label，然后用FindComponent，判断
是否
Label，tag是多少，对不同的Label赋予不同的值；二、使用TObjectList来管理
Label，
我试过！

 

Z

zhuoyuesky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-29

• #4

接受答案了.

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #5

多人接受答案了。