一分也没有了，还是希望有好心的DFW来帮帮我！我想建立个ARRAY OF BUTTON，可是我怎么判断按下的BUTTON的INDEX呢？(0分)

T

TIGER@DELPHI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-17

• #1

VAR
BB：ARRAY OF TBUTTON；
G：INTEGER；
BEGIN
FOR G：=0 TO 10 DO
BEGIN
BB[G]：=TBUTTON.CREATE（SELF）；
.....
.....
END；
END；

怎么才能判断按下的BB的INDEX呢？

 

C

coolqiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-17

• #2

利用Button的Tag属性，在Create之后，
BB[G].Tag := G;
BB[G].OnClick := BBClick;

procedure BBClick(Sender: TObject);
begin
ShowMessage('点击按钮'+IntToStr((Sender as TButton).Tag));
end;

 

W

wzca

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-17

• #3

给新建 button 的 Tag 属性 加个值吧
FOR G：=0 TO 10 DO
BEGIN
BB[G]：=TBUTTON.CREATE（SELF）；
bb[G].Tag := 1000 + G; // 看这里
.....
.....
END；

在BUTTON事件里判 TAG 就行了

 

T

TIGER@DELPHI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-17

• #4

[]