[nixon232]

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

Код:

1 2 3 4 5

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);

Можно не перемещая

Код:

1 2 3 4 5

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]

а если так?

Код:

1 2 3 4 5 6

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

а если так?

Код:

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