Postmessage Befehl an WebBrowser-Komponente?

[Esolit]

Hi,

was ist an folgendem Quelltext falsch? Ich lege erst den Fokus meinen Programmes auf das Dokument im WebBrowser und versuche dann einen Tastenbefehl (im Beispiel Tabulator-Taste) an diese zu schicken. Nur irgendwie wird das jedes mal so interpretiert als wenn der Befehl an die Form geschickt worden wäre. Stimmt vielleicht der Klassenname des WebBrowsers nicht?

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
wnd : HWND;
begin
wnd := FindWindow('TForm1',nil);
if wnd <> 0 then
begin
wnd := FindWindowEx(wnd,0,'TWebBrowser1',nil);
(Webbrowser1.Document as IHTMLDocument2).ParentWindow.Focus;
 PostMessage(wnd, WM_KEYDOWN , VK_Tab, 0);
end else showmessage('Not Found');
end;

Beste Grüße

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

[shmia]

Nach

Delphi-Quellcode:

PostMessage(wnd, WM_KEYDOWN , VK_Tab, 0);

muss auch

Delphi-Quellcode:

PostMessage(wnd, WM_KEYUP , VK_Tab, 0);

folgen.