摘要： 你把一个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;=== 阅读全文