同时响应一个事件

功能说明：同时响应一个事件 


procedure TForm1.Button1Click(Sender: TObject);
begin
    IfTbutton(sender).Name = 'Button1'then showmessage( '你单击了Button1');
    IfTbutton(sender).Name = 'Button2'then showmessage( '你单击了Button2');
    IfTbutton(sender).Name = 'Button3'then showmessage( '你单击了Button3');
end;

通过 Wiz 发布