Moin, ich versuche einen Mausklick auf eine Webbrowser Komponente zu erzeugen sodass ich ein Object auf der Website anklicken könnte, jedoch klappt das nicht. Wenn ich das selbe mit nem Memo versuche dann klappt es. Wieso klappt das nicht mit dem WebBrowser ?

Bitte fragt nicht warum und wieso ich sowas versuche Es ist nur spielerei und ich wunder mich warum das nicht klappt..

markieren

Code:

var
  Pt: TPoint;
begin
  Pt.X:=200;
  Pt.Y:=300;
  Pt:=ClientToScreen(Pt);
  SendMessage(WebBrowser1.Handle,WM_RBUTTONDOWN,Pt.X,Pt.Y);
  SendMessage(WebBrowser1.Handle,WM_RBUTTONUP,Pt.X,Pt.Y);

Hmm verdammt, mit jeder anderen Komponente gehts (Button, Memo, Panel etc..)

Hat vielleicht jemand einen anderen Ansatz um einen Klick auf den Webbrowser zu simulieren. Das Problem ist das ich einen Button auf einer Website kicken möchte. (Ich weiss das es andere sinnvollere Möglichkeiten gibt jedoch muss es doch möglich sein diesen simplen Klick zu simulieren

Mit folgenden Code klappt das auch aber nur im aktiven Fenster... Wenn ich jetzt den Klick auf eine nicht sichtbare Komponente simulieren will kann ich ja nur übers Handle gehen..

markieren

Code:

  Point.X:=Panel1.Left+(Panel1.Width div 2);
  Point.Y:=Panel1.Top+(Panel1.Height div 2);
  Point:=ClientToScreen(Point);
  SetCursorPos(Point.X,Point.Y);
  //Perform Left Click
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

TWebbrowser Click

Zitat:

Pt:=ClientToScreen(Pt);

WM_RBUTTONDOWN erwartet eine relative Position und keine Absolute.

Das es mit dem Memo klappte war dann wohl eher nur Zufall ... also wenn du es da auch mit den Absoluten Werten versucht hattest.

Hmm was meinst du mit relativen Angaben ? Meinst du das die Abstände vom Form Rand gemessen werden sollten ?

Genau das war gemeint.