如何判断鼠标是否指向表单右上角关闭按钮？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 如何判断鼠标是否指向表单右上角关闭按钮？

标题：如何判断鼠标是否指向表单右上角关闭按钮？

只看楼主

isealer

等　级：论坛游侠
威　望：4
帖　子：33
专家分：110
注　册：2017-8-25
结帖率：75%

楼主

已结贴√ 问题点数：20 回复次数：5

如何判断鼠标是否指向表单右上角关闭按钮？

请教各位大侠，有没有办法判断鼠标是否指向表单右上角关闭按钮，
我想在鼠标指向与离开“X”时切换一个变量值

搜索更多相关主题的帖子: 鼠标　指向　表单　关闭　按钮　

2018-01-12 14:59

星光悠蓝

来　自：山水甲天下
等　级：贵宾
威　望：48
帖　子：459
专家分：1116
注　册：2010-1-11

第 2 楼

得分:0

不用标题栏，改用图片按钮

[此贴子已经被作者于2018-1-12 15:17编辑过]

2018-01-12 15:13

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 3 楼

得分:20

默认窗口标题栏的话，可以看看 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

收到的鲜花

isealer 于 2018-01-14 12:16 送鲜花 3朵附言：我很赞同

2018-01-12 16:27

isealer

等　级：论坛游侠
威　望：4
帖　子：33
专家分：110
注　册：2017-8-25

第 4 楼

得分:0

以下是引用吹水佬在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

测试中，多谢前辈指点！