delphi 通过点击获取控件名称

你把一个TButton和一个TSpeedButton的OnClick都设置成一样的试看看。如 
procedure   TForm1.SpeedButton1Click(Sender:   TObject); 
begin 
    if   TWinControl(Sender).Name   =   'Button1 '   then 
        ShowMessage( 'Button1 ') 
    else   if   TWinControl(Sender).Name   =   'SpeedButton1 '   then 
        ShowMessage( 'SpeedButton1 '); 
end;

 

=======================