Tabulatortaste im TWebBrowser abfangen ?

[Ungeübter]

Hallo Leute,

ich möchte für mein Programm eine Funktion basteln welche die Tabulatoreingaben abfängt, also dass man z.B. zählen kann wie oft die Tab-Taste gedrückt wurde. Allerdings soll das Ganze funktionieren wenn das im Webbrowser angezeigte Dokument den Focus hat.
Mit einem simplen KeyPreview auf true stellen und in der OnKeyPress-Procedure "if key = 'vk_tab'" funktioniert es leider nicht einmal wenn ein beliebiges Element de Fokus hat...

Auf der Suche nach einer Lösung habe ich das gefunden, auch wenn es für ein Editfeld geschrieben wurde (was ja leicht zu ändern ist): http://www.swissdelphicenter.ch/de/showcode.php?id=591

Damit funktioniert das Abfangen der Tabulatortaste zwar im Normalfall, wenn aber der Eingabefokus auf einem Dokument im Webbrowser liegt, wie in meinem Beispiel, dann empfängt er das Ereignis trotzdem nicht

Weiss jemand wie man das Problem lösen kann ?

[Sprint]

Ich weiß nicht, ob es eine einfachere Lösung gibt... Aber kannst diese ja mal ausprobieren. Bei Problemen einfach fragen.

Link

[sniper_w]

Delphi-Quellcode:

var n:integer = 0;

procedure TForm1.MyProc(var Msg: tagMSG;
  var Handled: Boolean);
begin
//
 if Msg.message = WM_KEYDOWN  then
  if Msg.wParam = VK_TAB then
  begin
    // und da ist es !!!!
   Inc(n);
  end;
//
Handled := False; // Wichtig
end;
//
Application.OnMessage:=MyProc;

//EDIT
Du musst noch irgend wie feststellen dass das Focus im TWebBrowser ist. Das sollte aber nicht so ein grosses Problem sein.

[Ungeübter]

@Sprint

Hab das in dem Link beschriebene versucht, allerdings bin ich irgendwann an den ganzen Compilerfehlern gescheitert

@sniper_w

Wenn es so einfach funktionieren sollte wäre das natürlich super, allerdings meckert er bei mir bei der Zeile "Application.OnMessage:=MyProc;", Error: "Deklaration erwartet, aber Bezeichner 'Application' gefunden".

[sniper_w]

Zitat:

Wenn es so einfach funktionieren sollte wäre das natürlich super, allerdings meckert er bei mir bei der Zeile "Application.OnMessage:=MyProc;", Error: "Deklaration erwartet, aber Bezeichner 'Application' gefunden".

"Application.OnMessage:=MyProc;" muss sich in einem OnCreate von TForm1 Event befinden. Mein letzes Beitrag könntest du nicht bloss in deienen Code kopieren.

[Ungeübter]

Ahh ok, funktioniert tadellos, auch wenn man das Ganze noch etwas weiter treibt.