menu - 如何以编程方式操纵进行中的多个动态小部件上的弹出菜单

Question

语言:进阶10.1C

我有一个Windows窗体，并在其上动态创建了许多小部件(在这种情况下为切换框)。我可以创建0到64个小部件，具体取决于用户在当前集合中有多少个do-hickies。当用户从一个集合更改为另一个集合时，将根据需要删除或创建窗口小部件。表单将根据显示的窗口小部件大小进行调整。

用户可以通过从菜单栏，工具栏或键盘快捷键中选择操作来检查任意数量的对象并在被选中的项目上执行某些处理。但是我还希望用户能够右键单击单个小部件，该小部件应该弹出一个弹出菜单，其中包含可以对单击的项目(无论是否选中)执行的操作。

就其本身而言，这很简单。过去，我曾经做过这种事情(用其他语言)，因为只有一个弹出菜单，当用户单击任何一个动态控件时都会弹出一个菜单。但是我很难在进行中进行以下简单操作:

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

我的下一个解决方案是创建一个菜单，该菜单可以以编程方式弹出，但是所有以编程方式弹出菜单的尝试均失败。我已经尝试过将“MENU-DROP”应用到MENU MyMenu和其他类似的东西，但我终生无法弄清楚该怎么做。我也发现很难搜索有关此方面的信息。好像没有其他人尝试过此方法，在极少数情况下有人提出要求，却没有令人满意的答案。我怀疑这无法完成。

在尝试所有这些事情时，我还遇到了MOUSE-MENU-DOWN，MOUSE-MENU-UP和MOUSE-MENU-CLICK事件的无尽问题。 MOUSE-MENU-CLICK似乎从未发生过，无论如何我的动态小部件都没有。我不知道为什么。有时会发生MOUSE-MENU-UP，但这取决于在MOUSE-MENU-DOWN和小部件的其他事件以及小部件的父级中发生的情况。我无法弄清楚何时会开火，这很违反直觉。我唯一可以依靠的就是MOUSE-MENU-DOWN。

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

在默认框架上有一个静态弹出菜单，我可以右键单击窗口小部件，然后菜单会出现，但是如果我在框架中的任何位置单击都会弹出菜单。我可以禁用菜单，然后在小部件的右键单击事件中启用它。第一次效果很好。如果单击框架中的任何位置，则什么都不会发生(菜单是可用的)，但是如果单击窗口小部件，则会启用菜单并弹出。好极了!但是现在菜单启用了，如果我右键单击任何地方，按钮，空白区域，进度条等，它就会弹出。何时重新禁用它？菜单弹出后，用户可以单击任意位置，菜单将消失。关闭菜单时不会触发任何事件，所以我被卡住了。

对冗长的混乱感到抱歉，我将简短地重申这个问题:我希望有一个弹出菜单，当用户右键单击许多动态创建的小部件之一时会弹出该菜单。

使用汤姆的答案，这就是我的实现方式:

/* 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.

Answer 1

我的好友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)”。从任何人那里窃取弹出菜单。