|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Как программно нажать кнопку мышки?
Всем привет !!!! Не знал куда написать эту тему поэтому написал суда =) Народ подскажите пожалуйста как реализовать программное нажатие кнопки мыши по заданным координатам например 200x30. Заранее спасибо
|
#2
|
||||
|
||||
GetCursorPos(A) - узнать текущее положение мыши (где A : TPoint)
SetCursorPos(X,Y) - установить новое положение мыши mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0) - нажать левой кнопки mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0) - отпустить левую кнопку Помогаю за Спасибо |
#3
|
||||
|
||||
Цитата:
v1s2222, а не мог бы ты воложить готовую программку , исходник ??? |
#4
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); begin SetCursorPos(50,50); // ставим мышку в положение 50, 50 mouse_event(MOUSEEVENTF_LEFTDOWN,50,50,0,0); // нажимаем левую кнопку мыши по координатам 50, 50 mouse_event(MOUSEEVENTF_LEFTUP,50,50,0,0); // отпускаем левую кнопку мыши... end; Помогаю за Спасибо |
#5
|
||||
|
||||
Большое спасибо =) Если что может возникнет еще вопрос =)
|
#6
|
||||
|
||||
А не мог бы ты еще подсказать как зделать что бы координаты нужно было писать в Edit ??? Заранее спасибо )))
|
#7
|
||||
|
||||
Брось на форму 2 едита и одну кнопку, по нажатию на кнопку пиши код:
Код:
procedure TForm1.Button1Click(Sender: TObject); var X, Y: Integer; begin X := StrToIntDef(Edit1.Text, 0); Y := StrToIntDef(Edit2.Text, 0); SetCursorPos(X, Y); mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0); mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0); end; ЗЫ Вместо StrToIntDef можешь использовать StrToInt. Это просто отлавливание ошибок, если человек введет не целое число, то будет нажата мышка по координатам 0, 0. Помогаю за Спасибо |