我利用一个三维的控件数组在窗体上动态创建上很多speedbutton控件，我要怎样得到用mouse选中的一个控件（当前焦点按件）的Tag属性的值？

Question

为创建的TSpeedButton 指定OnClick事件事件中的代码如下：ShowMessage(IntToStr(TSpeedButton(Sender).Tag));

Answer 1

TO CoolSlob(Updating Serivce) 
  你的是对的，谢谢，希望下次再得到你的指点；

Answer 2

哇，这么多啊，试一试看行吗？
Unit ..
....
Procedure myonclick(Sender:Tobject);
...
Procedure Tfrom1.myonclick(Sender : Tobject);
begin
  ...//动态创建
  ShowMessage(IntToStr(TSpeedButton(Sender).Tag));
  ...
end;var 
 s:array[1..4,1..4,1..11] of TSpeedButton;
begin
  S[1].ONclick := myonclick;
end;