|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.05.2008, 17:37 | #1 |
Ra-Ra ?
Форумчанин
Регистрация: 06.03.2008
Сообщений: 286
|
Проблема с нажатием кнопки мышки
Код:
|
23.05.2008, 18:23 | #2 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Чтобы получился двойной щелчёк тебе нужно сделать так:
Procedure Delay(Ms : Longint); Var TheTime : LongInt; Begin TheTime := GetTickCount + Ms; While GetTickCount < TheTime Do Application.ProcessMessages; End; GetCursorPos(p); GetCursorPos(p1); While p.X = p1.X do begin mouse_event(MOUSEEVENTF_LEFTDOWN,p. X,p.Y,0,0); mouse_event(MOUSEEVENTF_LEFTUP,p.X, p.Y,0,0); Delay(100); mouse_event(MOUSEEVENTF_LEFTDOWN,p. X,p.Y,0,0); mouse_event(MOUSEEVENTF_LEFTUP,p.X, p.Y,0,0); GetCursorPos(p1); end; и желательно вместо sleep(100); поставить задержку Delay(100); или Delay(50);
Всегда рад помочь!
|
23.05.2008, 18:33 | #3 |
Ra-Ra ?
Форумчанин
Регистрация: 06.03.2008
Сообщений: 286
|
Спасибо 8)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
UCOZ: Кнопки кнопки на изображении | ReDuX | HTML и CSS | 19 | 25.04.2008 02:39 |
Слежение за нажатием кнопок во всех приложениях | Игорь22 | Win Api | 8 | 27.02.2008 17:59 |
триггерные кнопки и кнопки переключатели в DELPHI | MARGO | Помощь студентам | 3 | 12.11.2007 17:35 |
Переход на метку нажатием кнопки | Макс84 | Общие вопросы Delphi | 6 | 04.04.2007 08:59 |
Как запустить exe-шку нажатием кнопки???? | Дамир | Помощь студентам | 3 | 04.02.2007 19:24 |