VFP辅导：VFP右键功能

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

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

存盘退出。

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

do remouse

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