| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 522 人关注过本帖
标题:如何判断鼠标是否指向表单右上角关闭按钮?
只看楼主 加入收藏
isealer
Rank: 2
等 级:论坛游民
威 望:3
帖 子:30
专家分:97
注 册:2017-8-25
结帖率:75%
  已结贴   问题点数:20  回复次数:5   
如何判断鼠标是否指向表单右上角关闭按钮?
请教各位大侠,有没有办法判断鼠标是否指向表单右上角关闭按钮,
我想在鼠标指向与离开“X”时切换一个变量值
2018-01-12 14:59
星光悠蓝
Rank: 8Rank: 8
来 自:山水甲天下
等 级:贵宾
威 望:31
帖 子:325
专家分:809
注 册:2010-1-11
  得分:0 
不用标题栏,改用图片按钮


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

2018-01-12 15:13
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:169
帖 子:6389
专家分:28032
注 册:2014-5-20
  得分: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
Rank: 2
等 级:论坛游民
威 望:3
帖 子:30
专家分:97
注 册:2017-8-25
  得分: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


测试中,多谢前辈指点!
2018-01-12 16:49
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:18
帖 子:527
专家分:691
注 册:2012-2-29
  得分:0 
回复 3楼 吹水佬
学习,谢谢!
2018-01-13 07:42
isealer
Rank: 2
等 级:论坛游民
威 望:3
帖 子:30
专家分:97
注 册:2017-8-25
  得分:0 
赞,完全满足要求,再次感谢!
2018-01-14 12:13







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026891 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved