如何定义类数组的事件？(200分)

智

智利

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-12

• #1

是这样的，我定义了下面这个类数组。
var
MyButton:array[1..18] of TButton;
如何使MyButton的OnClick事件都执行一个过程，同时又可根据下标进行单个处理？

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-12

• #2

for i := 1 to 18 do
begin
MyButton.OnClick := MyButtonOnCick;
MyButton.Tag := i;
end;

在MyButtonOnCick 过程中:
case TButton(Sender).Tag of
1:
...........

 

W

weiwei81123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-12

• #3

for i:=1 to 18 do
begin
MyButton.tag := i;
MyButton.onclick := mybuttonclick;
end;

procedure tform1.mybuttonclick(sender: tobject);
begin
...
if tbutton(sender).tag = 1 then
begin
...
end;
...
end;

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-12

• #4

楼上的二个方法一样，就这样就行了。

 

智

智利

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-17

• #5

解决。