复制.prg

吐血贡献纺织上的进销存原码,功能齐全,给大家吧.

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: 复制.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 DEFINE POPUP 快捷菜单 FROM MROW() , MCOL() RELATIVE SHORT
 DEFINE BAR _MED_PASTE OF 快捷菜单 PROMPT '复制(\<C)' MESSAGE '将选定内容复制到剪贴板上'  ;
      KEY CTRL+C , 'Ctrl+C'
 DEFINE BAR 2 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR _MED_PSTLK OF 快捷菜单 PROMPT '粘贴(\<P)' MESSAGE '粘贴剪贴板上的内容' KEY  ;
      CTRL+V , 'Ctrl+V'
 ACTIVATE POPUP 快捷菜单
*