VFP右键功能

来源： 作者： 出处：综艺读书 2006-10-13 

关 键 词：

作者: boing  

用其他语言做的软件，其TEXT、EDIT、COMBOX等都有右键功能， 即一按右键
就会在其对象旁弹出一个这样的菜单（见右图），  
惟独VFP做的程序没有，您说气不气人。

　　下面就是该功能实现的方法：
　　先介绍几个需要用到常数，这里所说的常数，是系统默认的常数,也就是在编
辑时会以蓝色显示的字符。  
这些常数是：    
常数名 所代表的含义  
_med_undo "撤消(U)"  
_med_cut "剪切(T)"  
_med_copy "复制(C)"  
_med_paste "粘贴(P)"  
_med_clear "删除(D)"  
_med_slcta "全选(A)"  

第一步我们在COMMAND窗口打：
MODIFY COMMAND remouse.prg

在编辑窗内输入如下内容：  
DEFINE POPUP popRight SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_undo OF popRight PROMPT "撤消(\<U)"
DEFINE BAR 2 OF popRight PROMPT "\-"
DEFINE BAR _med_cut OF popRight PROMPT "剪切(\<T)"
DEFINE BAR _med_copy OF popRight PROMPT "复制(\<C)"
DEFINE BAR _med_paste OF popRight PROMPT "粘贴(\<P)"
DEFINE BAR _med_clear OF popRight PROMPT "删除(\<D)"
DEFINE BAR 7 OF popRight PROMPT "\-"
DEFINE BAR _med_slcta OF popRight PROMPT "全选(\<S)"
ACTIVATE POPUP popRight

存盘退出。

　　这样我们就建立了一个名为remouse.prg的文件。
　　接下来我们就可在需要右键功能对象的RinhtClick事件里写入：

do remouse

好了，我们的程序也有右键功能了，就这么简单，不信您试试。
　　这个方法唯一不足的是，必须在每个需要右键功能的对象里都写上：
do remouse这一句，但比起借用外部程序来达到这个目的，我觉得还是
这个方法好。

进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：VFP下客户机访问任意映射服务器的方法

较新的文章：VFP与Excel交互编程