如何使弹出菜单不可见？

Question

我正在使用 Progress 11.6 版、appBuilder 和程序编辑器。

我正在创建一个新的 window，基于另一个。另一个 window 包含一个浏览器，其上附加了一个弹出菜单。
在我的副本中，我现在不想看到弹出菜单（换句话说，我想禁用它，以便用户看不到它）。

我曾尝试将 VISIBLE 改为 FALSE，将 HIDDEN 改为 TRUE，但我总是遇到问题。

我的代码如下所示，有人知道我怎样才能让弹出菜单不可见吗？

DEFINE MENU popup-menu-browser
       MENU-ITEM m_Copy LABEL "Copy" ACCELERATOR "CTRL-C"
       MENU-ITEM m_Cut  LABEL "Cut"  ACCELERATOR "CTRL-X"
       ...

browser-object:POPUP-MENU = MENU popup-menu-browser:HANDLE

// not working:
MENU POPUP-MENU-browser:HIDDEN = TRUE.

Answer 1

您需要删除弹出菜单：

MENU POPUP-MENU-browser = ?.

或者让它不敏感：

MENU POPUP-MENU-browser:SENSITIVE = FALSE.

完整示例：

define browse br with size 40 by 10.

define menu mb
   menu-item mhide label "Hide"
   .

on choose of menu-item mhide do:
   browse br:popup-menu:sensitive = false.
end.   

on " " anywhere do:
   browse br:popup-menu:sensitive = true.
end.
   
browse br:popup-menu = menu mb:handle.

define frame fr 
   br
with 
   size 42 by 12 
   view-as dialog-box
   .

enable all with frame fr.
view frame fr.
wait-for close of frame fr.

请注意，在弹出菜单之间切换时，您会丢失复选框的值 - 请参阅知识库文章 000054795

如何使弹出菜单不可见？

How can I turn a popup menu invisible?

menu

popupmenu

progress-4gl

openedge