Menu 如何通过编程操作多个动态小部件上的弹出菜单

语文：进步10.1C

我有一个Windows窗体，并在它上动态创建了许多小部件（本例中为切换框）。我可以创建0到64个小部件，这取决于用户在当前集合中有多少个小部件。当用户从一个集合更改到另一个集合时，将根据需要删除或创建小部件。表单将根据显示的小部件数量调整大小

用户可以通过从菜单栏、工具栏或键盘快捷键中选择操作来检查任意数量的项目，并对检查的项目执行某些过程。但我也希望用户能够右键单击单个小部件，这将显示一个弹出菜单，其中的操作可以仅对单击的项目执行，无论是否选中

就其本身而言，这是相当直截了当的。在过去，我做过这样的事情（用其他语言），当用户点击任何一个动态控件时，会弹出一个弹出菜单。但我很难做到这一点：

我无法有一个弹出式菜单来响应所有小部件的右键单击。我尝试创建一个弹出菜单，然后在创建每个动态小部件时，将其弹出菜单属性设置为该菜单。问题是菜单只能应用于一个小部件。一旦我将其分配给Widget1，我就无法将其分配给Widget2。这导致人们考虑为每个小部件创建一个单独但相同的菜单。随着小部件被销毁和重新创建，这些菜单也将被销毁和重新创建。在一次会话中，我将创建并销毁数百个甚至数千个相同的菜单，而用户可能会使用其中一个菜单一次或两次。或者根本没有。所以这对我来说似乎不是一个好的选择

我的下一个解决方案是创建一个菜单，我可以通过编程弹出菜单，但所有通过编程弹出菜单的尝试都失败了。我尝试过将“菜单下拉”应用到菜单MyMenu和其他类似的东西上，但我一辈子都不知道该怎么做。我也发现很难找到这方面的信息。就好像从来没有人尝试过这个，而且很少有人问起这个问题，却没有令人满意的答案。我怀疑这是不可能的

在尝试所有这些事情的同时，我也遇到了无数的问题，比如鼠标菜单下键、鼠标菜单上键和鼠标菜单点击。鼠标菜单点击似乎永远不会发生，不管怎样，我的动态小部件也不会。我不知道为什么。鼠标菜单向上有时会发生，但这取决于鼠标菜单向下和小部件的其他事件以及小部件的父项中发生的情况。我还不能确切地知道它什么时候会发射，什么时候不会发射，这是非常违反直觉的。鼠标菜单下键是我唯一可以指望的开火方式

所以：我不能以编程方式显示菜单，我只能通过右键单击菜单的父菜单来显示它。避免有数百个相同菜单的唯一方法是在小部件的父级上有一个弹出菜单，例如默认框架

在默认框架上有一个静态弹出菜单，我可以右键单击小部件，菜单就会出现，但是如果我单击框架中的任何地方，它就会出现。我可以禁用菜单，然后在小部件的右键单击事件中启用它。这在第一次使用时效果很好；如果我点击框架中的任何地方，什么都不会发生（菜单被破坏），但是如果我点击我的小部件，菜单被启用并弹出。耶！但现在菜单已启用，如果我右键单击任意位置、按钮、空白区域、进度条等，它将弹出。我何时再次禁用它？弹出菜单后，用户可以单击任意位置，菜单将显示。菜单关闭时没有触发事件，所以我被卡住了

很抱歉，我要简单地重申这个问题：我想要一个弹出菜单，当用户右键单击许多动态创建的小部件时，它会弹出

---

根据Tom的回答，我是这样实现的：

/* Somewhere in Control Definitions... */
DEFINE MENU m_Popup 
       MENU-ITEM m_Test1     LABEL "Test 1"       
       MENU-ITEM m_Test2     LABEL "Test 2".     

/* Somewhere, where I need to dynamically create the widgets. */
/* Loop through the items in the temp table and create a widget for each. */
FOR EACH ttItem BY ttItem.ItemName:
  CREATE TOGGLE-BOX hWidget
    ASSIGN 
           FRAME        = FRAME DEFAULT-FRAME:HANDLE
           LABEL        = STRING(ttItem.ttItemName)
    TRIGGERS:
      ON MOUSE-MENU-DOWN PERSISTENT RUN GetMenu IN THIS-PROCEDURE.
    END TRIGGERS.
END.

/* If the user right-clicks on any one of the widgets, this procedure */
/* is run with SELF being the widget that was clicked on. */
PROCEDURE GetMenu:
  /* Remove the menu from its current owner and assign it to SELF. */
  MENU m_Popup:OWNER:POPUP-MENU = ?.
  SELF:POPUP-MENU = MENU m_Popup:HANDLE.
END PROCEDURE.

/* The user clicks on one of the menu items  */
/* Here SELF is the menu item that was clicked. I can */
/* get m_Popup from SELF:PARENT and the widget it was */
/* was assigned to from SELF:PARENT:OWNER.            */
ON CHOOSE OF MENU-ITEM m_Test1 
DO:
  MESSAGE "You selected " SELF:LABEL " for " SELF:PARENT:OWNER:LABEL.
END.

我的好友Mike Fechner（他目前不在SO节目中，但比我做得更多）告诉我，虽然这个例子是静态的，但非常类似的东西应该可以工作：

Procedure getMenu:

  DEFINE INPUT PARAMETER phWidget AS HANDLE NO-UNDO.
  DO WITH FRAME {&FRAME-NAME}:
      FILL-IN-1:POPUP-MENU = ? .
      FILL-IN-2:POPUP-MENU = ? .
      FILL-IN-3:POPUP-MENU = ? .
  END.

  phWidget:POPUP-MENU = MENU POPUP-MENU-FILL-IN-1:HANDLE  .

END procedure.

---

在所有三个填充项的鼠标右键下，您可以“运行getMenu（SELF）”，从任何拥有弹出菜单的人那里窃取弹出菜单。

对不起，这是Progress 4GL。我将把它添加到问题的文本中。您是否有任何示例代码可以帮助说明问题？好的，所以我错了，我可以重新分配弹出菜单，但我必须首先从其现有所有者处取消分配它（使用弹出菜单=？）。这是非常方便知道，谢谢！因为我的控件是动态的，并且存储在临时表中，所以我可以循环使用它们来设置它们的弹出菜单，所以这应该可以很好地工作。嘿，汤姆，看看我发现了什么！我不必在我的小部件中循环，我只需要使用菜单的所有者：

menumpopup:owner:Popup-menu=？。SELF:POPUP-MENU=菜单m\u POPUP:HANDLE.