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;

 

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