易语言编辑框屏蔽鼠标右键的两种方法

十万个为什么

易语言的编辑框默认是可以点击鼠标右键弹出菜单的
如下图所示,右键可以复制粘贴剪切编辑框内容


有时候我们做的软件.并不希望用户可以点击鼠标右键复制粘贴编辑框的内容.
那么怎么屏蔽易语言编辑框的鼠标右键呢?

1.用代码实现
源码如下.

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集_窗口1
   
4. .程序集变量 c_eidt, edit, , "0"
   
5. 
   
6. .子程序 拦截编辑框右键
   
7. .参数 编辑框句柄, 整数型
   
8. .局部变量 eidt, edit
   
9. 
   
10. eidt.hwnd ＝ 编辑框句柄
    
11. eidt.lpPrevWndProc ＝ SetWindowLong (eidt.hwnd, -4, &WindowProc)
    
12. 加入成员 (c_eidt, eidt)
    
13. 
    
14. .子程序 WindowProc, 整数型
    
15. .参数 hw
    
16. .参数 uMsg
    
17. .参数 wParam
    
18. .参数 lParam
    
19. 
    
20. .如果真 (uMsg ＝ 123)  ' 或 uMsg ＝ 769)  ' 是否为WM_CONTEXTMENU或复制消息
    
21.     弹出菜单 (菜单, , )
    
22.     返回 (0)  ' 拦截
    
23. .如果真结束
    
24. 返回 (CallWindowProc (Get_lpPrevWndProc (hw), hw, uMsg, wParam, lParam))
    
25. 
    
26. .子程序 Get_lpPrevWndProc, 整数型
    
27. .参数 hwnd, 整数型
    
28. .局部变量 i, 整数型
    
29. 
    
30. .计次循环首 (取数组成员数 (c_eidt), i)
    
31.     .如果真 (c_eidt [i].hwnd ＝ hwnd)
    
32.         返回 (c_eidt [i].lpPrevWndProc)
    
33.     .如果真结束
    
34. 
    
35. .计次循环尾 ()
    
36. 返回 (0)
    
37. 
    
38. .子程序 _窗口1_创建完毕
    
39. 
    
40. 拦截编辑框右键 (编辑框1.取窗口句柄 ())
    

复制代码

2.曲线解决法:换成超级编辑框
写下如下代码.就会弹出你的自定义菜单了.

1. .版本 2
   
2. .子程序 _超级编辑框1_鼠标右键被放开, 逻辑型
   
3. .参数 横向位置, 整数型
   
4. .参数 纵向位置, 整数型
   
5. .参数 功能键状态, 整数型
   
6. 超级编辑框1.弹出菜单 (菜单, , )
   
7. 返回 (假)

复制代码

yyz860723

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！