各位老大，问题又来了，关于自动创建按钮！

Question

老大们，现在有这样一个问题，我在单独的一个Unit中创建了一个ToolBar控件，上面根据需要自动创建了N个按钮，我在一个Form中操作了这个Unit单元，现在我需要在Form中分别处理Unit中ToolBar上不同的按钮点击后的事件，请问大侠们，我怎么才能在Form中取得我点击了Unit中ToolBar上的那个按钮？？？？请写个例子，谢谢大侠！注：不用Timer控件和循环，因为这样会占用大量处理其它代码的时间！

Answer 1

提供参考：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    procedure BtnClick(sender:TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.BtnClick(sender: TObject);
begin
  ShowMessage('btn'+IntToStr(TButton(sender).Tag)+' clicked.');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  btn1.OnClick:=BtnClick;
  btn2.OnClick:=BtnClick;
end;end.

Answer 2

procedure TForm1.BtnClick(sender: TObject);
begin
  ShowMessage('btn'+IntToStr(TButton(sender).Tag)+' clicked.');
end;
{
在这里, sender 是被点击的按钮对象引用
}