TO evolutioncode(): 在你的菜单中加上VFP的编辑菜单中的复制、粘贴、全选等等项目就行了，到时候，他们自动有效或无效，什么都不用管。同理，还可以用在TextBox、EditBox等的右键快捷菜单中。
TO evolutioncode(): 同意楼上说的。你可以自己做一个快捷菜单，当然快捷菜单不要自己做，而是插入系统菜单栏，然后，选取你要的系统菜单，就行了。如果你要自己用代码实现也可以。 Vfp有个系统变量_cliptext=”表达式”，就可以把选定的东西放在剪切板里。不过这样处理很麻烦，没有作个快捷菜单来的方便。
这次来了一个用VFP的盟友大聚会，希望以后有机会和大家交流交流，我提倡程序代码的开放，可以相互学习，共同进步。最好在给出解题思路时也尽量给出示例代码。祝楼上所有的兄弟新年好。 TO evolutioncode(): 对你的问题，我给一个参考答案 文本框、编辑框的rightclick事件代码： st=this.seltext va=this.value do rightmenu.prg with st,varightmenu.prg的代码： para st,va define popup popright shortcut relative from mrow(),mcol() define bar _med_copy of popright prompt"复制(\<C)" skip for empty(st) define bar _med_paste of popright prompt"粘贴(\<P)" skip for !empty(st) define bar 3 of popright prompt"\-" define bar _med_cut of popright prompt"剪切(\<T)" skip for empty(st) define bar _med_clear of popright prompt"删除(\<A)" skip for empty(st) define bar 6 of popright prompt"\-" define bar _med_slcta of popright prompt"全选(\<L)" skip for empty(va) activate popup popright
另外弄点PB，SQL的玩意儿。
还有一席之地，我现在是Vfp+Delphi
Delphi下作不了的东西用VFP做，VFP用调Delphi，用户看起来是用一套东东！！！
我用Vfp5年了，老资格了！！！
不过还是多学点东西好，这样能串起来写程序，何必在一颗树上吊死。。
在你的菜单中加上VFP的编辑菜单中的复制、粘贴、全选等等项目就行了，到时候，他们自动有效或无效，什么都不用管。同理，还可以用在TextBox、EditBox等的右键快捷菜单中。
同意楼上说的。你可以自己做一个快捷菜单，当然快捷菜单不要自己做，而是插入系统菜单栏，然后，选取你要的系统菜单，就行了。如果你要自己用代码实现也可以。
Vfp有个系统变量_cliptext=”表达式”，就可以把选定的东西放在剪切板里。不过这样处理很麻烦，没有作个快捷菜单来的方便。
TO evolutioncode():
对你的问题，我给一个参考答案
文本框、编辑框的rightclick事件代码：
st=this.seltext
va=this.value
do rightmenu.prg with st,varightmenu.prg的代码：
para st,va
define popup popright shortcut relative from mrow(),mcol()
define bar _med_copy of popright prompt"复制(\<C)" skip for empty(st)
define bar _med_paste of popright prompt"粘贴(\<P)" skip for !empty(st)
define bar 3 of popright prompt"\-"
define bar _med_cut of popright prompt"剪切(\<T)" skip for empty(st)
define bar _med_clear of popright prompt"删除(\<A)" skip for empty(st)
define bar 6 of popright prompt"\-"
define bar _med_slcta of popright prompt"全选(\<L)" skip for empty(va)
activate popup popright
自己的菜单定义程序中。