注册的wm-国际棋牌

smooth · 发表于 2023-10-17 16:47:27

注册的wm_mousemove函数有时候鼠标移动没反应，不晓得是什么原因？

global $k = 0
$gui = guicreate("wm_mousemove 消息", 500, 250)
guictrlcreatelabel('窗口客户区移动鼠标时发送 wm_mousemove 消息.', 5, 5, 380, 34)
$label = guictrlcreatelabel('', 10, 45, 230, 110)
guisetstate()
guiregistermsg(0x0200, "wm_mousemove")
do
until guigetmsg() = -3
func wm_mousemove($hwnd, $imsg, $wparam, $lparam)
local $key, $x, $y
$x = bitand($lparam, 0xffff) ; _winapi_loword 低位字
$y = bitshift($lparam, 16) ; _winapi_hiword 高位字
$k = 1
winsettitle($gui, '', '消息发生次数: ' & $k & ' 坐标 x = ' & $x & ', 坐标 y = ' & $y)
endfunc

复制代码

afan · 发表于 2023-10-17 18:52:37

$label = guictrlcreatelabel('', 10, 45, 230, 110) ;范围很大
在控件上是不会有该消息的。

smooth · 发表于 2023-10-17 19:33:45

$label = guictrlcreatelabel('', 10, 45, 230, 110) ;范围很大
在控件上是不会有该消息的。

嗯，谢谢！我本来是想获取鼠标在该控件上悬停时的消息，看来用反了。

afan · 发表于 2023-10-17 19:41:27

嗯，谢谢！我本来是想获取鼠标在该控件上悬停时的消息，看来用反了。

这种需求可使用 “控件子类化” 捕获悬停等消息。
当然也可简单的使用 guigetcursorinfo() 循环获取信息

gyp2000 · 发表于 2023-10-17 21:16:19

可以这样写：

global $k = 0
$gui = guicreate("wm_mousemove 消息", 500, 250)
guictrlcreatelabel('窗口客户区移动鼠标时发送 wm_mousemove 消息.', 5, 5, 380, 34)
$label = guictrlcreatelabel('', 10, 45, 230, 110)
guisetstate()
do
$msg = guigetmsg(1)
_mousemove($msg)
sleep(5)
until guigetmsg() = -3
func _mousemove($imsg)
if $imsg[0] = 0 then return
local $key, $x, $y
$x = $imsg[3]
$y = $imsg[4]
$k = 1
winsettitle($gui, '', '消息发生次数: ' & $k & ' 坐标 x = ' & $x & ', 坐标 y = ' & $y)
endfunc

复制代码

smooth · 发表于 2023-10-18 12:03:49

可以这样写：

这样不是用windows消息，谢谢！

显示全部楼层 · 发表于 2023-10-18 14:14:03

本帖最后由 tubaba 于 2023-10-18 14:23 编辑

注册一个窗口处理程序来处理发生的指定消息

#include 

#include 

#include 

#include 

#include 

#region ### start koda gui section ### form=

$form1 = guicreate("form1", 357, 167)

$label1 = guictrlcreatelabel("mousehover test", 112, 72, 112, 17)

global $hlabel_callback = dllcallbackregister("_label_callbackfunc", "int", "hwnd;uint;wparam;lparam")

global $hoform_label_callback = _winapi_setwindowlong(guictrlgethandle($label1),  0xfffffffc, dllcallbackgetptr($hlabel_callback))

guisetstate(@sw_show)

#endregion ### end koda gui section ###



while 1

        $nmsg = guigetmsg()

        switch $nmsg

                case $gui_event_close

                        exit



        endswitch

wend



func _label_callbackfunc($hwnd, $imsg, $iwparam, $ilparam)

        #forceref $hwnd, $imsg, $iwparam, $ilparam

        local $ictrl = _winapi_getdlgctrlid($hwnd)

        local const $tme_hover = 0x00000001

        local const $tme_leave = 0x00000002

        switch $ictrl

                case $label1

                        switch $imsg

                                case $wm_mousehover ;鼠标悬停



                                case $wm_mouseleave ;鼠标离开



                                case $wm_mousemove ;鼠标移动

                                        __trackmouseevent($hwnd, bitor($tme_hover, $tme_leave), 1) ;//mouseleave|mousehover消息由此函数触发

                                        local static $n

                                        $n  =1

                                        consolewrite('@@ debug(' & @scriptlinenumber & ') : $n = ' & $n & @crlf & '>error code: ' & @error & '    extended code: ' & @extended & ' (0x' & hex(@extended)  & ')    systemtime: ' & @hour & ':' & @min & ':' & @sec & @crlf) ;### debug console

                                case $wm_setcursor ;设置光标

                                        guictrlsetcursor($ictrl, 0)

                                case $wm_lbuttondown

                        endswitch

                        return _winapi_callwindowproc($hoform_label_callback, $hwnd, $imsg, $iwparam, $ilparam)

        endswitch

endfunc   ;==>_label_callbackfunc



func __trackmouseevent($hwnd, $iflags, $itime = -1)

        local $ttme = dllstructcreate('dword;dword;hwnd;dword')

        dllstructsetdata($ttme, 1, dllstructgetsize($ttme))

        dllstructsetdata($ttme, 2, $iflags)

        dllstructsetdata($ttme, 3, $hwnd)

        dllstructsetdata($ttme, 4, $itime)

        local $aret = dllcall('user32.dll', 'bool', 'trackmouseevent', 'struct*', $ttme)

        if @error then return seterror(@error, @extended, 0)

        return $aret[0]

endfunc   ;==>__trackmouseevent

		自动登录
密码			加入