There is no horizontal scroll when I call this method in Delphi 3 under Windows 7:
const MOUSEEVENTF_HWHEEL = $1000;
mouse_event(MOUSEEVENTF_HWHEEL, 0, 0, 120, 0);
Vertical scroll with MOUSEEVENTF_WHEEL
works well. Result is same with SendInput
, and return value indicates a success. My current mouse supports horizontal tilt, but has no horizontal scroller.
What is needed to use MOUSEEVENTF_HWHEEL
?
SDK documentation: http://bit.ly/mouse_event
Mouse Hook
I created a second 32 bit exe program under Windows 7 only to see if the mouse sends messages when the horizontal wheel is scrolled. This hook receives VSCROLL but no HSCROLL messages.
MouseHook := SetWindowsHookEx(WH_MOUSE_LL, @MouseProc, hInstance, 0);