功能：该方法将参数

Message 传过来的键消息进行解码，以得到一个 shortcut 属件，同时匹

配菜单项，如果键值正好与某菜单顶的快捷键一致，它调用菜单项的

click 方法，返回真。

否则，返回假。

10-ProcessMenuChar：（var Message：TWMMenuChar）

功能：响应链盘输入。它首先检查用户键入的字符是否为某菜单项的加速字符，如果是，执
行菜单项。如果不是，检查与字符对应的标题，如果只有一个匹配，该字符当作加速键处理。
否则的话，以该字符开头的第一个菜单被选择。

事件

1-OnChange：当菜单改变时，触发该事件。

TPopupMenu 控件

该控件表示一个弹出菜单。该对象的层次结构为：

TObject—TPersistent--TCompoment—

TMenu。

属性

1-Alignment：(paLeft，paRigh，paCenter)

功能：当用户点击鼠标右键时，确定弹出菜单的出现位置。的缺省值为

paLeft。

2-AutpPopup：Boolean

功能：当用户点击鼠标右键时，确定掸出菜单是否自动出现。

3-HelpContext ：THelpContext

功能：为弹出菜单指定帮助文档的

ID。

4-PopupComponen：TComponent

功能：指示最后使用弹出菜单的那个控件。

方法

1-Popup：(X,Y:Integer)

功能：在屏幕上显示弹出菜单。

X、Y 定义了屏幕上的坐标。

事件：