>> 我们从网络和杂志上收集了近100000余篇各类电脑技术、网络技术、软件技术等方面的文章教程,我们的收录原则:不是精华拒不收录!

先飞电脑技术网 → 技术文章

VFP右键功能 ［ 作者：佚名    转贴自：本站原创    阅读次数：50    更新时间：2005-11-30 13:19:00   录入：刘光勇 ］   热       用其他语言做的软件，其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这一句，但比起借用外部程序来达到这个目的，我觉得还是 这个方法好。

上一篇:用Foxpro制作Windows输入法码表  下一篇: 在VFP中调用系统用户及单位名称