关于怎样响应事件(50分)

我在程序运行时动态的生成了几个按钮,并且让这几个按钮都使用同一
单击事件函数,但怎样在这个函数里知道是哪个按钮单击了.

procedure Tform1.Button1Click(Sender : TObject);
begin
If Tbutton(sender).Name := 'button1' then do .....something;
If Tbutton(sender).Name := 'button2' then do .....something;


或用下面的方法, 判断当前焦点按钮是那一个
If Getfocus()= Button1.Handle then do .....something;
If Getfocus()= Button1.Handle then do .....something;
或者你给每一个 按钮 一个 不同的TAG属性
If Tbutton(Sender).Tag = 1 then do something;
If TButton(Sender).Tag = 2 then do something;
end;

用事件处理过程中的SENDER判断是哪个button.
if Tbutton(Sender).Name='Button1' then
...
else
...

这次是我慢了！

xixi，可以直接判断指针是否相等
if Sender=Button1 then
...

如果你用的是诸如Button之类有焦点的按钮，可以使用Form的ActiveControl属性

接受答案了.