快捷菜单-15699《可视化程序设计：Delphi》电子课件、实例代码
5．快捷菜单所谓的快捷菜单，就是单击鼠标右键时，在鼠标当前位置弹出的菜单。使用快捷菜单可以更方便地为用户提供更加便利的操作。例7-3在例7-1的基础上，实现在窗体上单击鼠标右键弹出移动方向子菜单；在标签上单击鼠标右键弹出控制移动子菜单。根据设计要求在窗体上添加两个快捷菜单控件PopupMenu 1和PopupMenu 2。设计PopupMenu 1为移动方向子菜单、PopupMenu2为控制移动子菜单如图7-5所示。将Form1的PopupMenu属性设置为PopupMenu1，Label1的PopupMenu属性设置为PopupMenu 2。编写各菜单项的OnClick事件过程代码同上。运行结果如图7-6所示。
文件大小：1.93MB
评论区