Показать сообщение отдельно
  #1  
Старый 24.04.2018, 08:38
nixon232 nixon232 вне форума
Активный
 
Регистрация: 26.01.2014
Сообщения: 282
Версия Delphi: delphi xe4
Репутация: выкл
По умолчанию Клики по не статичным контроллам

Можно кликнуть перемещая курсор в точку
Код:
  SetCursorPos(Coord.X, Coord.Y);
        Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LeftDOWN, 0, 0, 0, 0);
    
        Sleep(50);
        Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Можно не перемещая
Код:
ScreenToClient(h, Coord);
        LP := MakeLParam(Coord.X, Coord.Y);
        SendMessage(h, WM_LBUTTONDOWN, 0, LP);
        Sleep(50);
       SendMessage(h, WM_LBUTTONUP, 0, LP);

и все хорошо, но ровно до того момента пока контролл не Drag'ается.
В этом случае идет не клик, а перемещение в место курсора.
Слип хоть 50, хоть 250, роли не играет. есть какие-то варианты? Окно чужое.
Ответить с цитированием