Имитация клика мыши

[russian-stalker]

у меня работает:

procedure ClickOnControl(HWND:THandle;xPos,yPos:word);
begin
 PostMessage(HWND,WM_LBUTTONDOWN,0,(yPos shl 16)+xPos);
 PostMessage(HWND,WM_LBUTTONUP,0,(yPos shl 16)+xPos);
end;

...

procedure ClickOnControl(handle,1000,100);

[Пепел Феникса]

procedure TForm1.Button2Click(Sender: TObject);
begin
 SendMessage(Application.Handle,WM_LBUTTONDOWN,0,(100 shl 16)+100);
end;

вы хоть смотрите кому сообщение то отправили?
Form1.Handle это форма.
если над отправить браузеру то WebBrowser.Handle и координаты относительно него.

[Anfall]

Спс. Работает. Но почему-то только после второго нажатия. Странно.

[Lime]

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

Спс. Работает. Но почему-то только после второго нажатия. Странно.

WM_LBUTTONDOWN

- смотри перевод.

Работает после 2рого нажатия потому что

WM_LBUTTONUP

не отослано , и событие Click происходит автопатически после 2рого WM_LBUTTONDOWN.

Получается Вы 2 раза нажали левую кнопку мыши при этом ниразу не отпуская

[PHP&DELPHI_User]

procedure ClickMouse(); // щелчок мышкой в области X и Y
var
  pPoint: TPoint;
  hPoint: HWnd;
  X,Y: Integer;
begin
  pPoint.X := (Form1.WebBrowser1.Left+250);
  pPoint.Y := (Form1.WebBrowser1.Top+503);
  hPoint := Form1.WebBrowser1.Handle;
  X := pPoint.X;
  Y := pPoint.Y;
  SetCursorPos(X, Y);
  PostMessage(hPoint, WM_LBUTTONDOWN,0, (X shl 16)+ Y );
  PostMessage(hPoint, WM_LBUTTONUP,0, (X shl 16)+ Y );
 
end;

Не хочет мышка нажиматься ( Где меня пронесло? подскажите...

[Mad_Cat]

потому что клик у тебя происходит левее и выше)
так как у тебя передаются координаты на форме- а надо экранные)

[PHP&DELPHI_User]

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

потому что клик у тебя происходит левее и выше)
так как у тебя передаются координаты на форме- а надо экранные)

Да пробовал и экранные и через форму, тут умные люди писали что координаты следует расчитывать по тому окну где кликнуть надо , вот я на этом пока и остановился. Блин 2 дня сижу и лбом ап стенку бьюсь (

[PHP&DELPHI_User]

А как мне установить координаты курсора мыши относительно WebBrowser'а?

[Mad_Cat]

как минимум прибавить Form1.left и Form1.top
а вообще вот

//переводим координаты  из оконных в экранные
  P := Parent.ClientToScreen(Point(Left, Top));
  x := Min(Max(P.X, 0),Screen.Width);
  y := P.Y + Height;

[PHP&DELPHI_User]

Совсем ничего непонял, еще больше запутался
код непонятен для меня - новичка.
Как мне его под свой код приспособить?

какой тип у "Parent" ?