以下是引用吹水佬在2018-1-12 16:27:33的发言:
默认窗口标题栏的话,可以看看 WM_NCMOUSEMOVE 消息
示例:
注意观察 wParam、lParam 的情况
of = CREATEOBJECT("form1")
of.show(1)
DEFINE CLASS form1 as Form
PROCEDURE init
** WM_NCMOUSEMOVE 0x00A0
BINDEVENT(this.hWnd, 0x00A0, this, "ncmousemove")
ENDPROC
PROCEDURE ncmousemove(hWnd, Msg, wParam, lParam)
y = BITRSHIFT(lParam, 16)
x = BITAND(lParam,0x0000FFFF)
this.caption = "wParam="+TRANSFORM(wParam)+" lParam="+TRANSFORM(lParam)+"(x:"+TRANSFORM(x)+" y:"+TRANSFORM(y)+")"
ENDPROC
ENDDEFINE
测试中,多谢前辈指点!