又是一个简单问题，关于动态创建的compents数组的事件问题

Question

setlength(aryButtons,thislength);
for i:=0 to length(aryButtons)-1 do
 begin
 aryButtons[i]:=TSpeedButton.Create(self);
 aryButtons[i].Parent:=Panel1;
 aryButtons[i].Visible:=true;
 end;怎样把相应事件赋予aryButtons[i]并知道是哪个button触发的数组呢？

Answer 1

TForm1 = class(TForm)
  procedure ButtonClick(Sender: TObject);aryButtons[i].OnClick := ButtonClick;
aryButtons[i].Tag := i;  // 用Tag来判断是哪个buttonprocedure TForm1.ButtonClick(Sender: TObject);
begin
  case TButton(Sender).Tag of
    0:
    1:
    ...
  end;
end;