Im Webbrowser mit Tab navigieren

[nezumi77]

N'abend,

ich möchte im Webbrowser den gesamten Text markieren und in ein Memo laden.

Delphi-Quellcode:

WebBrowser1.OleObject.document.execCommand('SelectAll', false, emptyParam);
Clipboard.AsText := Webbrowser1.OleObject.Document.Selection.createRange.Text;
Memo1.Lines.Text := Clipboard.AsText;

Das Blöde ist nur, dass beim Aufruf der Seite der Cursor in einem Eingabefeld ist und daher nichts markiert wird. Um aus dem Eingabefeld herauszukommen versuche ich

Delphi-Quellcode:

webbrowser1.SetFocus;
Keybd_event($09, 0, 0, 0);
Keybd_event($09, 0, KEYEVENTF_KEYUP, 0);

Leider ohne Erfolg. Das führt nur dazu, dass TWebbrowser den Focus verliert. Daher: Wie kann ich "Tab" simulieren ohne den Webbrowser zu verlassen?

Gruß, nezumi

[toms]

Hallo

Setze den Focus zuvor auf den Body des Documents:

Delphi-Quellcode:

uses
  MSHTML;

procedure SetFocusToBody(Webbrowser: TWebbrowser);
var
  bodyElement: IHTMLElement2;
  HTMLDoc2: IHTMLDocument2;
begin
  if Supports(Webbrowser.Document, IHtmlDocument2, HTMLDoc2) then
  begin
    bodyElement := HTMLDoc2.body as IHTMLElement2;
    if Assigned(bodyElement) then
      bodyElement.focus;
  end;
end;

[nezumi77]

Hallo toms,

funzt astrein.

Vielen Dank