请教：在TAB页上动态create了N个按钮，运行期单击其中一个，能否知道我单击的是哪一个?

Question

with TButton.Create(Self) do begin
  Parent := ...;
  Tag := N; //
  Name := 'Btn' + IntToStr(N); //
end;

Answer 1

>with TButton.Create(Self) do begin
>  Parent := ...;
>  Tag := N; //
>  Name := 'Btn' + IntToStr(N); //
>  OnClick := Button1Click;
>end; procedure Form1.Button1Click(Sender: TObjcet);
begin
  ShowMessage(TButton(Sender).Name);
end;

Answer 2

问题是button1click是动态create的，设计期间还没有Form1.Button1Click事件

Answer 3

       var hEditBtn:TSpeedButton
       begin
         hEditBtn:=TSpeedButton.create(self);
         hEditBtn.parent:=hTab;
         hEditBtn.Glyph := SpeedButton1.Glyph;
         hEditBtn.Caption:='';
         hEditBtn.Font.Name:='宋体';
         hEditBtn.Font.size:=9;
         hEditBtn.left:=x4;
         hEditBtn.top:=CheckTop;
         hEditBtn.width:=23;
         hEditBtn.height:=22;
         hEditBtn.Action:=ActionList1.Actions[0];
         hEditBtn.OnClick:=Action1Execute;

Answer 4

hEditBtn.Tag := 1;procedure TForm1.Action1Execute(Sender: TObject);
begin
  ShowMessage(IntToStr(TSpeedButton(Sender).Tag));
end;

Answer 5

不行啊，捕捉到的sender是Action1，而不是我想要的button，555~~