当右键点击一个speedbutton时，怎样获得该speedbutton的name？

Question

当右键点击一个speedbutton时，怎样获得该speedbutton的name？最好给个例子，谢谢，在线等待，解决就给分！

Answer 1

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button =  mbRight
  then Caption:= (Sender as TSpeedButton).Name;
end;

Answer 2

如何在右键点击时，取得这个speedbutton的name，可能没说明白，我的意思是，在popupmun中取得speedbutton的name，因为这个speedbutton是我动态生成的

Answer 3

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button =  mbRight
  then ShowMessage((Sender as TSpeedButton).Name);
end;