| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1768 人关注过本帖
标题:请教:怎样才能实现单击鼠标右键时,在光标处弹出一个选择菜单
只看楼主 加入收藏
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
结帖率:90.48%
收藏
 问题点数:0 回复次数:2 
请教:怎样才能实现单击鼠标右键时,在光标处弹出一个选择菜单
我在 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
搜索更多相关主题的帖子: 鼠标 单击 菜单 光标 popExam 
2008-07-13 18:56
lilo_pwl
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2008-7-22
收藏
得分:0 
用菜单设计器制作快捷菜单,然后在对象的rightclick事件中使用do 快捷菜单名.MPR的方式调用
2008-07-22 11:49
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
我是想使用参数来调用弹出式菜单,开始也想用快捷菜单,但它不能接收参数,所以放弃了。不过,今天我从快捷式菜单中找出了鼠标位置参数,问题已经解决了,谢谢回复!
2008-07-22 21:22
快速回复:请教:怎样才能实现单击鼠标右键时,在光标处弹出一个选择菜单
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023824 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved