[nixon232]

Можно кликнуть перемещая курсор в точку

Код:

  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, роли не играет. есть какие-то варианты? Окно чужое.

[Decoding]

а если так?

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   SendMessage(h, WM_SETFOCUS, 0, 0);
   SendMessage(h, WM_LBUTTONDOWN, MK_LBUTTON, 0);
   SendMessage(h, WM_LBUTTONUP, MK_LBUTTON, 0);
end;

[nixon232]

Сообщение от Decoding

а если так?

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   SendMessage(h, WM_SETFOCUS, 0, 0);
   SendMessage(h, WM_LBUTTONDOWN, MK_LBUTTON, 0);
   SendMessage(h, WM_LBUTTONUP, MK_LBUTTON, 0);
end;

В моем случае без указания координат клика не произойдет h - это не то куда я хочу кликать. Нужно кликать в опр. точку на объекте h