如何得到控件的弹出式菜单的名字（通过Popupmenu)

Question

为什么 getpopupmenu 函数不能编译通过
Var
  Control : Tcontrol;
  TempPop : TPopupmenu;
Begin
   tempPop := Control.getpopupmenu;
end; 
结果却不能得到该控件相关联的菜单

Answer 1

这样试试
Control.caption := Control.PopupMenu.Name;

Answer 2

Var
  Control : Tcontrol;
  TempPop : TPopupmenu;
Begin
  tempPop := Control.popupmenu;
end; 

Answer 3

我刚试过，可以直接把getpopupmenu.name赋给一个string变量

Answer 4

xzm2000(不是云)　:
  请提供一点源码，我试了一下仍然报错

Answer 5

比如要得到form1的popupmenu的name
var
  s: string;
begin
  s := form1.popupmenu.name;  //s中保存popupmenu的name
end;

Answer 6

定义控件的OnMouseDown事件，如果是右键按下,则
  if (sender is TControl) then
  with sender as TControl do
    showmessage(popupmenu.name);

Answer 7

我希望通过消息来完成 
Procedure  TForm1.Appmessage(Msg : tMsg;Handled : Boolean);
   If Msg.Message = Wm_RButtonDown Then 
    Begin
        //得到弹出菜单的名字
    End;