专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅

首页 »Delphi教程 » popupmenu:弹出式菜单组件PopupMenu »正文

popupmenu:弹出式菜单组件PopupMenu

来源: 发布时间:星期四, 2009年2月12日 浏览:143次 评论:0


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

相关文章

读者评论

发表评论

  • 昵称:
  • 内容: