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


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

6 天前 15:13
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:123
帖 子:5174
专家分:21697
注 册: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 积分 +3 我很赞同 2018-1-14 12:16
6 天前 16:27
isealer
Rank: 1
等 级:新手上路
帖 子:16
专家分:7
注 册: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


测试中,多谢前辈指点!
6 天前 16:49
schtg
Rank: 5Rank: 5
等 级:职业侠客
威 望:9
帖 子:276
专家分:349
注 册:2012-2-29
  得分:0 
回复 3楼 吹水佬
学习,谢谢!
5 天前 07:42
isealer
Rank: 1
等 级:新手上路
帖 子:16
专家分:7
注 册:2017-8-25
  得分:0 
赞,完全满足要求,再次感谢!
4 天前 12:13







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

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