我在 MouseDown 事件里放置下列代码,但弹出的菜单位置不能确定,请高手指点迷津,或者有更好的办法建立弹出式菜单?

LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nButton=2
    DEFINE POPUP popExam FONT '宋体', 12 TITLE "复制粘贴菜单" FROM nXCoord, nYCoord
    DEFINE BAR 1 OF popExam PROMPT '复制'
        ON SELECTION BAR 1 OF popExam do jtxt with x1,1
    DEFINE BAR 2 OF popExam PROMPT '粘贴' SKIP FOR EMPTY(_cliptext)
        ON SELECTION BAR 2 OF popExam do jtxt with x1,2
    DEFINE BAR 3 OF popExam PROMPT '取消粘贴' SKIP FOR yztkg
        ON SELECTION BAR 3 OF popExam do jtxt with x1,3
    ACTIVATE POPUP popExam
ENDIF









***************************************************************
PROCEDURE jtxt
 parameter x1,jxj
     x2=x1+".seltext"
     x3=x1+".value"
     x4=x1+".selstart"
         IF jxj=1
             _cliptext=&x2
        ELSE
            IF jxj=2
                 rxbak=&x3
                 &x3=STUFF(&x3,&x4+1,0,_cliptext)
                yztkg=.f.
             ELSE
                 &x3=rxbak
                 yztkg=.t.
             ENDIF
         ENDIF
    DEACTIVATE POPUP popExam
    RELEASE POPUP popExam
ENDPROC

用菜单设计器制作快捷菜单，然后在对象的rightclick事件中使用do 快捷菜单名.MPR的方式调用

我是想使用参数来调用弹出式菜单，开始也想用快捷菜单，但它不能接收参数，所以放弃了。不过，今天我从快捷式菜单中找出了鼠标位置参数，问题已经解决了，谢谢回复！