弹出式菜单是当右击鼠标时
![](/icons/53058dou.gif)
弹出
![](/icons/53058de.gif)
![](/icons/53058yi.gif)
个菜单
![](/icons/53058dou.gif)
通常将它和
![](/icons/53058yi.gif)
个组件相关联
![](/icons/53058dou.gif)
故也称为“上下文关联快捷菜单\"
![](/icons/53058dou2.gif)
弹出式菜单可以通过PopupMenu组件实现
![](/icons/53058dou.gif)
该组件位于组件板
![](/icons/53058de.gif)
Standard页中
![](/icons/53058dou.gif)
其设计思路方法和MainMenu组件
![](/icons/53058de.gif)
设计思路方法
![](/icons/53058yi.gif)
样
①打开例4.3所建
![](/icons/53058de.gif)
工程
②向窗体加入RichEdit组件
![](/icons/53058dou.gif)
设置其Align为AIClient
③向窗体加入ActionList组件
![](/icons/53058dou.gif)
设置其Images属性为ImageListl
![](/icons/53058dou2.gif)
双击ActionList组件可进入编辑状态
![](/icons/53058dou.gif)
用New Action I New Standard Action可插入新
![](/icons/53058de.gif)
行为:EditCut、EditCopy、EditPaste
![](/icons/53058dou2.gif)
此时会自动增加3个相关按钮位图到ImageListl中
④向窗体加入弹出式菜单组件PopupMenu l
![](/icons/53058dou.gif)
双击PopupMenu l组件
![](/icons/53058dou.gif)
在菜单项
![](/icons/53058de.gif)
Action属性中依次选择EditCopyl、EditCut、EditPaste
![](/icons/53058dou.gif)
同时修改其Caption属性
![](/icons/53058dou.gif)
以显示中文
![](/icons/53058de.gif)
“复制\"、“剪切\"和“粘贴\"这3个菜单项
⑤将RichEdit组件
![](/icons/53058de.gif)
PopupMenu属性改为PopupMenul
⑥另存工程为Project4_5.dpr
![](/icons/53058dou.gif)
另存单元文件为Unit4_5.pas
⑦运行
![](/icons/53058chengxu.gif)
后
![](/icons/53058dou.gif)
用鼠标右击RichEdit组件
![](/icons/53058dou.gif)
则出现弹出式菜单
![](/icons/53058dou.gif)
可进行复制、剪切和粘贴操作