请教各位大师，给我一个能在查询到浏览表上点击右键显示快捷菜单的方法或代码，谢谢。

不好意思呀我是菜鸟级的菜鸟。我因为自己的超市需要一个订货电话单，要经常复制以前的记录，就想在以前的记录查询到浏览表上右键复制，这样好速度会快一点。哪位高手知道的话希望能指导一下，如果VFP上做不到这一点也告诉我一下我就不研究了，以免浪费时间。

给了你代码你都谢过了，还问，那当初谢什么？

谢谢是应该的你帮我把日期时间输进了字段（REPLACE 字段名 WITH DATE()），但弹出菜单没找到你指定的PopupMenu.PRG的文件，我知道我的水平太低很难再深究。右键菜单我在论坛里找了个代码试了好用，只可惜只能用在表单里面，查询里面我就不会用了。
Release med_cut,med_copy,med_clear,med_slcta
Public med_cut,med_copy,med_clear,med_slcta
med_cut=Iif(This.SelLength>0,.T.,.F.)
med_copy=Iif(This.SelLength>0,.T.,.F.)
med_clear=Iif(This.SelLength>0,.T.,.F.)
med_slcta=Iif(Len(Alltrim(This.Text))>0,.T.,.F.)
Define Popup shortcut SHORTCUT Relative From Mrow(),Mcol()
Define Bar _Med_undo Of shortcut Prompt "撒消(\<U)" ;
KEY CTRL+Z, ""
Define Bar 2 Of shortcut Prompt "\-"
Define Bar _Med_cut Of shortcut Prompt "剪切(\<T)" ;
KEY CTRL+X, "" ;
SKIP For med_cut=.F.
Define Bar _Med_copy Of shortcut Prompt "复制(\<C)" ;
KEY CTRL+C, "" ;
SKIP For med_copy=.F.
Define Bar _Med_paste Of shortcut Prompt "粘贴(\<P)" ;
KEY CTRL+V, "" &&;
* SKIP For Empty(_Cliptext)
Define Bar _Med_clear Of shortcut Prompt "删除(\<D)" ;
KEY DEL, "" ;
SKIP For med_clear=.F.
Define Bar 7 Of shortcut Prompt "\-"
Define Bar _Med_slcta Of shortcut Prompt "全选(\<A)" ;
KEY CTRL+A, "" ;
SKIP For med_slcta=.F.

Activate Popup shortcut
现在想找个简单的方法在查询上也能右键显现快捷菜单哪怕就只有复制一项都成（主要是我的水平只搞得了简单的东西）。

我在你原来那个帖子中的7楼把源代码和使用步骤、例子都讲得很详细了呀

好的我再试着看看，TonyDeng在查询到浏览表上的右键事件在哪写代码呀，我找不到。

你之前说的需求是在某个控件上调出快捷菜单，我才给你那个通用代码。但现在你说的这个需求，没有使用使用快捷菜单的需要：直接用Ctrl+C复制然后Ctrl+V粘贴就可以了。

谢谢TonyDeng这样也很快的，一时没想到。