怎样判断右键弹出菜单的调用者

Question

问各位一个问题
我在一个窗体中为几个组件设置了相同的 popupmenu
在popupmenu的onclick事件里怎样判断是点击了那个组件弹出的popupmenu 

Answer 1

//只要查找FOCUS的控件就可以了
procedure TForm1.PopupMenuClick(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to self.ControlCount - 1 do
    if (self.Controls[i] as TWinControl).Focused then
      showmessage (self.Controls[i].Name);
end;

Answer 2

用popupmenu的popupcomponent属性判断:
if popupmenu.PopupComponent=button1 then
     showmessage('button1');

Answer 3

可是如果是label类组件  没法获得焦点怎么办

Answer 4

谢谢  fengzhengren(风筝) 搞定了