Delphi弹出式菜单设计.5

  5.1弹出菜单

  弹出菜单又称为快捷菜单，是在某个组件上右击时弹出的菜单。快捷菜单中提供了与该组件相关的命令，如下图所示。

与主菜单相比，弹出菜单具有更高的灵活性，它不但可以用于窗体本身，还可以用于窗体中的各种组件。

  1.创建弹出菜单

      在Delphi程序设计中，使用Standard面板中的PopupMenu组件来创建弹出菜单。将PopupMenu组件添加到Form窗体中后，双击窗体中的PopupMenu组件可以打开PopuMenu菜单设计器。

在PopupMenu菜单设计器中设计菜单项的方法与在MainMenu设计器中设计菜单项的方法类似。下面以创建下图所示的快捷菜单为例，介绍如何创建快捷菜单。

  1）设计菜单项

    在图中所示的PopupMenu菜单设计器中选中当前空菜单项，将Caption属性设为“撤销”，设置菜单名。然后依次添加分隔条、“剪切”、“复制”、“粘贴”、“删除”、分隔条和“全选”菜单项，即可得到如上图所示的快捷菜单。

2）设计菜单快捷键

  快捷菜单也有快捷键。在默认情况下，系统会为快捷菜单中的每个菜单项自动关联一个快捷键，如上图所示，括号中的字母即为菜单项的快捷键。当快捷菜单弹出后，直接按菜单项右侧的字母键，即可执行该命令。

  如果要自定义菜单的快捷键，需要将PopupMenu组件的AutoHotKeys属性设置为maManual。与设置主菜单快捷键一样，直接在Caption属性栏中输入快捷键即可。例如，选中“剪切”菜单项