Postmessage Befehl an WebBrowser-Komponente?

[toms]

Hallo,

Probier's mal so:

Delphi-Quellcode:

var
  wnd :HWND;
begin
  wnd := FindWindowEx(WebBrowser1.Handle,0,'Shell DocObject View',nil);
  wnd := FindWindowEx(wnd ,0,'Internet Explorer_Server',nil);
  if wnd <> 0 then 
  begin
   // *** (Webbrowser1.Document as IHTMLDocument2).ParentWindow.Focus; *** // ist wahrscheinlich nicht notwendig
     PostMessage(wnd, WM_KEYDOWN , VK_Tab, 0); 
  end;
end;