如何让多级PopupMenu中的所有项目充当一个放射组?

Ben*_*Ben 3 delphi popupmenu radio-group submenu

我有一个带子菜单的PopupMenu,一次只能检查一个项目.据我所知GroupIndex,RadioItem属性在相应的子菜单之外不起作用.

我已经找到了这段代码来检查PopupMenu及其直接的子组件,但我没有运气创建一个弹出式的各种各样的.我需要一个快速的解决方案 - PopupMenu有4x14条目,总是遍历所有菜单,子条目不能是最好的解决方案,我想.

是否有一个简单的属性,我错过了或迭代的岩石路径我唯一的选择?

NGL*_*GLN 8

将所有56个项目作为操作添加到一个 ActionList,并为所有GroupIndex属性提供相同的值.

现在,以任何树状方式添加菜单项,子菜单和子子菜单,并将它们中的每一个链接到一个动作.检查一个菜单项,无论位于何处,都将自动取消选中所有其他菜单项.

Etvoilà!

  • +1表示推荐使用TActionList (3认同)