delphi如何模拟鼠标滚轮的往上和往下

Posted 2023-05-03

如何模拟鼠标滚轮往上 往下的操作

Sendmessage(Handle,WM_MOUSEWHEEL,wParam,LPARAM);
网上找了一段 不知道怎么模拟往下 和往上 的操作 求解答

参考技术A Handle是要实现鼠标滚动的窗口句柄.
知道句柄直接使用SendMessage发消息给窗口就行了
句柄可以用FindWindow这个API函数获得追问

知道句柄直接使用SendMessage发消息给窗口就行了

发送消息的内容是？？
Sendmessage(Handle,WM_MOUSEWHEEL,wParam,LPARAM);

后面的2个参数怎么写 怎么判断是往上 还是往下 ？？

追答

可以查看MSDN或Delphi帮助文档
wParam
The high-order word indicates the distance the wheel is rotated, expressed in multiples or divisions of WHEEL_DELTA, which is 120. A positive value indicates that the wheel was rotated forward, away from the user; a negative value indicates that the wheel was rotated backward, toward the user.

The low-order word indicates whether various virtual keys are down. This parameter can be one or more of the following values.
MK_CONTROL
The CTRL key is down.
MK_LBUTTON
The left mouse button is down.
MK_MBUTTON
The middle mouse button is down.
MK_RBUTTON
The right mouse button is down.
MK_SHIFT
The SHIFT key is down.
MK_XBUTTON1
Windows 2000/XP: The first X button is down.
MK_XBUTTON2
Windows 2000/XP: The second X button is down.
lParam
The low-order word specifies the x-coordinate of the pointer, relative to the upper-left corner of the screen.

The high-order word specifies the y-coordinate of the pointer, relative to the upper-left corner of the screen.

本回答被提问者采纳

如何禁用鼠标滚轮?

参考技术A 问题一：如何禁用鼠标的滚轮？ 方法一
1、首先打开运行对话框运行regedit打开注册表；
2、然后依次展开定位到HKEY_CURRENT_USERControl PanelDesktop的WheelScrollLines；
3、然后双击WheelScrollLines将其值4改变就行了，0表示禁止滚轮，1表示打开滚轮。然后退出注册表即可。
方法二
1、鼠标右击“计算机”选择管理，然后展开设备管理器；
2、在设备管理中找到并双击“鼠标和其他指针设备”，然后双击要配置的鼠标名称；
3、接着在弹出来的窗口中点击“高级设置”下的“鼠标轮检测”中，然后单击“寻找鼠标轮”或其他选项就可以了。
提示：必须以管理员或Administrators组成员的身份登录才能完成该过程，如果选择了“寻找鼠标轮”而鼠标轮不工作，就请单击“假定鼠标轮已经存在”，然后点击确定即可。

问题二：win7怎么关闭鼠标滚轮 110分 方法一、
1、首先打开运行对话框运行regedit打开注册表;
2、然后依次展开定位到HKEY_CURRENT_USERControl PanelDesktop的WheelScrollLines;
3、然后双击WheelScrollLines将其值4改变就行了，0表示禁止滚轮，1表示打开滚轮。然后退出注册表即可。
方法二、
1、鼠标右击“计算机”选择管理，然后展开设备管理器;
2、在设备管理中找到并双击“鼠标和其他指针设备”，然后双击要配置的鼠标名称;
3、接着在弹出来的窗口中点击“高级设置”下的“鼠标轮检测”中，然后单击“寻找鼠标轮”或其他选项就可以了。

问题三：VB6.0如何完全禁用或者屏蔽鼠标滚轮的任何输入 5分 '==================窗体代码=================Private Sub mand1_Click()Unload MeEnd SubPrivate Sub Form_Load() hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseHookProc, App.hInstance, 0)End SubPrivate Sub Form_Unload(Cancel As Integer) UnhookWindowsHookEx hHookEnd Sub'=============模块代码==================Public Const WH_MOUSE = 7 '本地钩子Public Const WH_MOUSE_LL = 14 '全局钩子Public Const GWL_WNDPROC = (-4)Public Declare Function SetWindowsHookEx Lib user32 Alias SetWindowsHookExA (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As LongPublic Declare Function CallNextHookEx Lib user32 (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As LongPublic Declare Function UnhookWindowsHookEx Lib user32 (ByVal hHook As Long) As Long 'Public Const WM_LBUTTONDOWN = &H201 '窗口中按下鼠标左键'Public Const WM_LBUTTONUP = &H202 '窗口中松开鼠标左键'Public Const WM_MOUSEMOVE = &H200 '窗口中移动鼠标'Public Const WM_RBUTTONDOWN = &H204 '窗口中按下鼠标右键'Public Const WM_RBUTTONUP = &H205 '窗口中松开鼠标右键Public Const WM_MOUSEWHEEL = &H20A '鼠标滚轮'Public Const WM_NCLBUTTONDOWN = &HA1 '窗口标题栏中按下鼠标左键'Public Const WM_NCLBUTTONUP = &HA2 '窗口标题栏中左开鼠标左键'Public Const WM_NCMOUSEMOVE = &HA0 '窗口标题栏中移动鼠标'Public Const WM_NCRBUTTONDOWN = &HA4 '窗口标题栏中按下鼠标右键'Public Const WM_NCRBUTTONUP = &HA5 '窗口标题栏中松开鼠标右键 Public hHook As LongPub......>>

问题四：怎么禁用鼠标的滚轮 【控制面板】――【鼠标】――【硬件】――【属性】――【高级设置】
把鼠标轮检测 设置成 【检测被停用】
It's ok...

问题五：有没有win10能禁用鼠标滚轮的办法 方法一
1、首先打开运行对话框运行regedit打开注册表;
2、然后依次展开定位到HKEY_CURRENT_USERControl PanelDesktop的WheelScrollLines;
3、然后双击WheelScrollLines将其值4改变就行了，0表示禁止滚轮，1表示打开滚轮 。然后退出注册表即可 。
方法二
1、鼠标右击“计算机”选择管理，然后展开设备管理器;
2、在设备管理中找到并双击“鼠标和其他指针设备”，然后双击要配置的鼠标名称;
3、接着在弹出来的窗口中点击“高级设置”下的“鼠标轮检测”中，然后单击“寻找鼠标轮”或其他选项就可以了 。

问题六：如何在注册表中禁用鼠标滚轮 在注册表中禁用鼠标滚轮的方法，在HKEY_CURRENT_USER\Control Panel\Desktop的WheelScrollLines的值4改变就行了，0表示禁止滚轮，1表示打开滚轮。

问题七：鼠标中间滚轮功能怎么关闭 控制面板中的鼠标设置里有，自己看吧。

问题八：js中如何禁用鼠标滚轮事件？急，在线等！ 如果使用的是IE直接使用下面代码就可以了，在body的onmousewheel事件中return false

问题九：如何禁用鼠标滚轮 开始 运行 regedit HKEY_CURRENT_USER\Control Panel\Desktop的WheelScrollLines的值4改变就行了，0表示禁止滚轮，1表示打开滚轮

问题十：如何禁用鼠标的滚轮？ 方法一
1、首先打开运行对话框运行regedit打开注册表；
2、然后依次展开定位到HKEY_CURRENT_USERControl PanelDesktop的WheelScrollLines；
3、然后双击WheelScrollLines将其值4改变就行了，0表示禁止滚轮，1表示打开滚轮。然后退出注册表即可。
方法二
1、鼠标右击“计算机”选择管理，然后展开设备管理器；
2、在设备管理中找到并双击“鼠标和其他指针设备”，然后双击要配置的鼠标名称；
3、接着在弹出来的窗口中点击“高级设置”下的“鼠标轮检测”中，然后单击“寻找鼠标轮”或其他选项就可以了。
提示：必须以管理员或Administrators组成员的身份登录才能完成该过程，如果选择了“寻找鼠标轮”而鼠标轮不工作，就请单击“假定鼠标轮已经存在”，然后点击确定即可。