edit_menu.mpr

来自「红狐VFP6通讯录V3.3,大家看看,可能会有帮助,好了」· MPR 代码 · 共 21 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: EDIT_MENU.MPR <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 DEFINE POPUP 快捷菜单 FROM MROW() , MCOL() RELATIVE SHORT
 DEFINE BAR 1 OF 快捷菜单 PROMPT '撤消(\<U)'
 DEFINE BAR 2 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 3 OF 快捷菜单 PROMPT '剪切(\<T)'
 DEFINE BAR 4 OF 快捷菜单 PROMPT '复制(\<C)'
 DEFINE BAR 5 OF 快捷菜单 PROMPT '粘贴(\<P)'
 DEFINE BAR 6 OF 快捷菜单 PROMPT '删除(\<D)'
 DEFINE BAR 7 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 8 OF 快捷菜单 PROMPT '全选(\<A)'
 ON SELECTION BAR 1 OF 快捷菜单 SYS(1500,'_MED_UNDO','_MSM_EDIT')
 ON SELECTION BAR 3 OF 快捷菜单 SYS(1500,'_MED_CUT','_MSM_EDIT')
 ON SELECTION BAR 4 OF 快捷菜单 SYS(1500,'_MED_COPY','_MSM_EDIT')
 ON SELECTION BAR 5 OF 快捷菜单 SYS(1500,'_MED_PASTE','_MSM_EDIT')
 ACTIVATE POPUP 快捷菜单
*