控件数组(20分)

H

HouBy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-20

• #1

[?]在Delphi中有没有类似于VB中的控件数组的功能？

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-20

• #2

有啊？
、声明控件数组。
var arr_btn:array of TButton;
2、创建控件。
SetLength(arr_btn,10);
For i:=0 to 9 do
begin
arr_btn := TButton.Create(Form1);
With arr_btn do
begin
Parent := Form1;
Top := ...;
Left := ...;
Width := ...;
Height := ...;
Caption := ...;
Visible := true;
OnClick := ButtonClickSimple;
Tag := i;
end;
end;

 

A

atface

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-20

• #3

UP

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-20

• #4

Tform类有一个属性components好像就是一个控件数组

 

W

wangydm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-20

• #5

就是呀,用findcomponent就可以了嘛!

 

H

HouBy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-21

• #6

应用cwmdelpher的方法，怎样知道是那一个button引发的click事件？

 

青

青萍

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-22

• #7

Click 事件有个参数 Sender

就是引发的那个Button

用TButton(Sender)强制转换就可以了

 

W

wangydm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-23

• #8

還沒搞定?
for i:=1 to N do
Tlabel(findcomponents('label'+inttostr(i) as Tlabel)).caption=''

 

H

HouBy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-26

• #9

多人接受答案了。