|
|

楼主 |
发表于 2020-1-26 19:01:00
|
显示全部楼层
江苏省盐城市
大佬,求一问, 我子窗口子类化msg=513 我处理了一个我自己的特殊功能,然后用您的
===
.版本 2
.支持库 spec
.子程序 弹出菜单_按窗口句柄, , , By:邓学彬(泪闯天涯)
.参数 窗口句柄, 整数型
.参数 子菜单索引, 整数型, , 第几个菜单,0为第一个
.参数 水平显示位置, 整数型, 可空, 单位为像素点,相对于屏幕左边。如果被省略,将自动使用当前鼠标位置。
.参数 垂直显示位置, 整数型, 可空, 单位为像素点,相对于屏幕顶边。如果被省略,将自动使用当前鼠标位置。
.局部变量 hMenu, 整数型
.局部变量 hSubMenu, 整数型
.局部变量 pt, POINTAPI
hMenu = GetMenu (窗口句柄)
' 本源码来自易语言zy网(www.eyuyan.la)
.如果真 (hMenu = 0)
调试输出 (“hMenu = 0”)
返回 ()
.如果真结束
' //-------------------------------
hSubMenu = GetSubMenu (hMenu, 子菜单索引)
.如果真 (hSubMenu = 0)
调试输出 (“hSubMenu = 0”)
返回 ()
.如果真结束
' //-------------------------------
GetCursorPos (pt)
.如果真 (是否为空 (水平显示位置))
水平显示位置 = pt.x
.如果真结束
.如果真 (是否为空 (垂直显示位置))
垂直显示位置 = pt.y
.如果真结束
' //-------------------------------
TrackPopupMenu (hSubMenu, 0, 水平显示位置, 垂直显示位置, 0, 窗口句柄, 0)
调试输出 (“TrackPopupMenu”)
====================
这个代码也不能让父窗口弹出菜单 怎么解?如果能弹出菜单,我可以不用透明了...
补充内容 (2020-1-26 19:01):
hSubMenu = 0 这步直接退出了
补充内容 (2020-1-26 19:03):
条件判断处理我自己的功能后是返回0,不涉及我自己的功能返回CallWindowProcA |
|