Горизонтальная прокрутка отсутствует, когда я вызываю этот метод в Delphi 3 под Windows 7:
const MOUSEEVENTF_HWHEEL = $1000;
mouse_event(MOUSEEVENTF_HWHEEL, 0, 0, 120, 0);
Вертикальная прокрутка с MOUSEEVENTF_WHEEL
работает хорошо. Результат совпадает с SendInput
, а возвращаемое значение указывает на успех. Моя текущая мышь поддерживает горизонтальный наклон, но не имеет горизонтальной прокрутки.
Что нужно для использования MOUSEEVENTF_HWHEEL
?
Документация SDK: http://bit.ly/mouse_event
Крючок для мыши
Я создал вторую 32-битную программу exe под Windows 7 только для того, чтобы увидеть, отправляет ли мышь сообщения при прокрутке горизонтального колеса. Этот хук получает VSCROLL, но не получает сообщений HSCROLL.
MouseHook := SetWindowsHookEx(WH_MOUSE_LL, @MouseProc, hInstance, 0);