窗口右键菜单演示

dasemimi

需要编译代码时，请下载  炫彩易语言 英文模块  1.0

1. .版本 2
   
2. .支持库 spec
   
3. .支持库 shellEx
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. .局部变量 hWnd, 整数型
   
9. .局部变量 hListBox, 整数型
   
10. .局部变量 nHeight, 整数型
    
11. .局部变量 hEdit, 整数型
    
12. .局部变量 EleBind, itemBindEle_
    
13. 
    
14. 
    
15. 
    
16. XInitXCGUI (“”)
    
17. hWnd ＝ XWnd_CreateWindow (0, 0, 500, 400, “测试”, 0, 1791)
    
18. ' 注册菜单右键
    
19. XWnd_RegisterMessage (hWnd, #WM_RBUTTONUP, &设计窗口_鼠标右键点击)
    
20. ' 右键菜单被选择消息
    
21. XWnd_RegisterMessage (hWnd, #XWM_MENUSELECT, &右键菜单_被选择)
    
22. 
    
23. 
    
24. 
    
25. XWnd_ShowWindow (hWnd, 5)
    
26. XRunXCGUI ()
    
27. 
    
28. 返回 (0)  ' 可以根据您的需要返回任意数值
    
29. 
    
30. 
    
31. 
    
32. 
    
33. .子程序 右键菜单_被选择, 逻辑型
    
34. .参数 hWindow
    
35. .参数 id
    
36. 
    
37. 
    
38. 
    
39. 调试输出 (“右键菜单选择ID”, id)
    
40. 返回 (假)
    
41. 
    
42. .子程序 设计窗口_鼠标右键点击, 逻辑型
    
43. .参数 hWindow
    
44. .参数 flags
    
45. .参数 pPt
    
46. .局部变量 pt, POINT
    
47. .局部变量 hMenu, 整数型
    
48. 
    
49. hMenu ＝ XMenu_Create ()
    
50. 
    
51. CopyMem_Point (pt, pPt, 8)
    
52. 
    
53. XWnd_GetClientLeft (hWindow)
    
54. pt.x ＝ pt.x ＋ XWnd_GetClientLeft (hWindow)
    
55. pt.y ＝ pt.y ＋ XWnd_GetClientTop (hWindow)
    
56. 
    
57. XMenu_AddItem (hMenu, 501, “111”)
    
58. XMenu_AddItem (hMenu, 502, “222”)
    
59. XMenu_AddItem (hMenu, 503, “333”)
    
60. 
    
61. ClientToScreen (XWnd_GetHWnd (hWindow), 取指针地址 (pt))
    
62. XMenu_Popup (hMenu, XWnd_GetHWnd (hWindow), pt.x, pt.y, 0, 0)
    
63. 
    
64. 返回 (假)
    

复制代码

499654640

顶，支持