Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

Что не так в процедуре ? ПОДСКАЖИТЕ она эмулирует щелчок мыши   Найти похожие ветки 

 
hammich   (2003-05-14 12:03) [0]

Мне нужна процедура которая эмулирует щелчок мышью по некоторой координате.
Я делаю это вот такой процедурой:

void DoClick(long x, long y)
{
Sleep(2000);
SetCursorPos(x, y);
POINT lpPoint;
GetCursorPos(&lpPoint);
HWND hWnd;
RECT lpRect;
hWnd = WindowFromPoint( lpPoint);
Sleep(500);
GetWindowRect(hWnd,&lpRect);
lpPoint.x = lpPoint.x - lpRect.left;
lpPoint.y = lpPoint.y - lpRect.top;
int lParam = 65536*lpPoint.y + lpPoint.x;
Sleep(100);
SetCapture(hWnd);
Sleep(100);
int nHittest = SendMessage(hWnd, WM_NCHITTEST, 0, lParam);
Sleep(100);
SendMessage(hWnd,WM_NCLBUTTONDOWN,nHittest,lParam);
Sleep(100);
SendMessage(hWnd,WM_NCLBUTTONUP,nHittest,lParam);
Sleep(100);
ReleaseCapture();
}

Дело в том что не во все места данная процедура делает клик,
на некоторые области, например меню, кнопка максимизации она не работает.
Программа виснет на SendMessage(hWnd,WM_NCLBUTTONDOWN,nHittest,lParam);
Я пробовал и сообщения WM_LBUTTONDOWN, WM_LBUTTONUP, все равно не работает.
Что не так? Что нужно изменить?


 
Snap ©   (2003-05-14 12:36) [1]

Во первых это сайт по ДЕЛЬФИ. Во вторых есть специальная процедура mouse_event, и она очень хорошо описана в МСДН и делает как раз то что тебе нужно. А в третьих я не понял зачем ты ставишь задержку в начале процедуры?



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

Текущий архив: 2003.07.17;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
8-55671
multik
2003-03-28 23:59
2003.07.17
Привет всем!!! Из bmp сделать ico


3-55400
Вит
2003-06-23 14:31
2003.07.17
Как в Runtime какому-нибудь MEMO FastReport-а присвоить значение


14-55784
Ajax
2003-06-29 20:29
2003.07.17
Большая просьба


14-55783
victor_ch
2003-06-30 14:57
2003.07.17
компонент типа StringGrid, с многострочными ячейками


1-55536
dima_matrix
2003-07-03 21:23
2003.07.17
VC модуль в проекте Delphi