Вниз
Скачать: CL | DM;

Как программно прокрутить колесико мыши?   Найти похожие ветки 

 
Chaser ©   (2006-02-14 10:56) [0]

Требуется программно из моего приложения прокрутить колесико мыши в другом приложении, т.е. чтобы допустим в MS Word двигался не курсор, а вертикальная полоса прокрутки.

Событие на своей форме обрабатываю как OnMouseWheel, а вот как послать сообщение любому другому приложению не имею понятия.

Думаю нужно послать что-то типа:

    keybd_event(vk_up, 0, 0, 0);
    keybd_event(vk_up, 0, KEYEVENTF_KEYUP, 0);

но для колеса мыши.

Как это сделать?


 
Anatoly Podgoretsky ©   (2006-02-14 10:59) [1]

Робот нужен


 
Курдль ©   (2006-02-14 11:54) [2]


> Как программно прокрутить колесико мыши?


Хочешь научить ее ездить?  8-()


 
Yanis ©   (2006-02-14 12:15) [3]


> Думаю нужно послать что-то типа:
>
>     keybd_event(vk_up, 0, 0, 0);
>     keybd_event(vk_up, 0, KEYEVENTF_KEYUP, 0);
>
> но для колеса мыши.

Думаю, что mouse_event в этом случае тебе больше подойдёт.


 
Chaser ©   (2006-02-14 12:57) [4]

Нашел, но работает не до конца:

Если крутить колесо вверх:

Mouse_Event(MOUSEEVENTF_WHEEL, 0, 0, 120, 0), то все ОК, полоса прокрутки идет вверх.

Но вниз не получается:

Mouse_Event(MOUSEEVENTF_WHEEL, 0, 0, -120, 0);

В MSDN написано:

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. One wheel click is defined as WHEEL_DELTA, which is 120.

Но отрицательное значение не катит.
При -120 пишет что не тот формат, какое значание нужно поставить?


 
Yanis ©   (2006-02-14 14:03) [5]

mouse_event(MOUSEEVENTF_WHEEL,Mouse.CursorPos.X, Mouse.CursorPos.Y, DWORD(-120), 0);


 
Chaser ©   (2006-02-14 14:11) [6]

Спасибо, теперь заработало!



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.975 c
1-1139401625
Huk
2006-02-08 15:27
2006.03.12
Как получить список фонтов в WideString?


6-1132057630
SergGG
2005-11-15 15:27
2006.03.12
Вопросы по сетям


1-1138965725
krush
2006-02-03 14:22
2006.03.12
Как убрать показ "Панель управления" в ShellTreeView


15-1139922163
Styx_
2006-02-14 16:02
2006.03.12
Вот кому Борланд продал Delphi :)


15-1140255258
Pazitron_Brain
2006-02-18 12:34
2006.03.12
Как восстановить почтовую базу Thunderbird?




   Наверх