如何检测按钮被按下？急....

Question

如何知道在界面的按钮是否被按下？系统上有很多按钮我不想一个个在按钮上写程序，能通过检测消息知道哪个按钮被按下吗？

Answer 1

type  TForm1  = class(TForm)
     procedure ButtonClick(Sender : TObject);
     ...
  end;implementprocedure TForm1.ButtonClick(Sender : TObject);
begin
    case Longint(Sender) of
         Longint(Button1) :   ... //处理Button1
         Longint(Button2) :   ... //处理Button2
    end;
end;//
在界面设计时,设定每个Button的OnClick事件过程为ButtonClick;

Answer 2

只能这样子吗？
不能用API来拦截消息->判断识别->处理???