怎样动态获得点出下拉菜单的按钮名称 ( 积分: 20 )

我有一个toolbutton,设置为tbsdropdown类型,即可以点出一个下拉菜单(关联到了一个popumenu),我想在下拉菜单弹出时,动态得获得这个按钮的名称,该怎样做?
不是用showmessage(toolbutton1.name),这样是写死的,如果另外一个toolbutto2也关联到这个popumen,在toolbutton2上点出这个菜单时,获得的应是toolbutton2的名称,即该怎样动态得获得点出这个菜单按钮的名称,想了半天,没成功,该怎样实现,请高手指教!!多谢!!

最好的办法是，每个TOOLBUTTON对应一个popumenu菜单。

//下拉菜单的OnPopup事件里写代码就可以了
procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
btn: TToolButton;
begin
btn:= TToolButton(TPopupMenu(Sender).PopupComponent);
//这里按纽都获得了,其它就好办了 btn.Name.............
end;
-------------------------------------------------
【delphiOK群】,欢迎有经验有的朋友加盟.群号:21787506

接受答案了.