Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с мышкой [D5, Win95/98]


kopcap ©   (2003-09-13 13:26:00) 

Мастера помогите , мне надо зделать программно мышкой несколь действий :
1 - Навести курсор в позицию X1, Y1;
2 - Нажать кнопку мыши;
3 - Навести курсор в позицию X2, Y2;
4 - Нажать кнопку мыши;
Помогите это реализовать.


kopcap   (2003-09-14 10:07:00) [1]

Сенькс =)


Songoku   (2003-09-14 01:06:00) [2]

SetCursorPos - указывает позицую курсора
keybd_event - эмуляция нажатия клавишь мышки.
VK_LBUTTON 01 Left mouse button
VK_RBUTTON 02 Right mouse button
VK_CANCEL 03 Control-break processing
VK_MBUTTON 04 Middle mouse button (three-button mouse)

вот пример:
begin
SetCursorPos(100,100);
keybd_event(VK_LBUTTON,MapVirtualKey(VK_LBUTTON,0),KEYEVENTF_EXTENDEDKEY,0);
keybd_event(VK_LBUTTON,MapVirtualKey(VK_LBUTTON,0),KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;


Polevi   (2003-09-13 23:20:00) [3]

SetCursorPos, SendMessage


andre   (2003-09-13 22:21:00) [4]

А SetMouse() не пойдёт?


kopcap   (2003-09-13 14:41:00) [5]

эээ !!! ну чё на такой простой вопрос никто ответ незнает !


Наверх

Титульная страница Поиск, карта сайта Написать письмо