TWebBrowser und Hotkeys

[endeffects]

Hallo,

ich möchte im TWebBrowser einige Tasten, z.b. den rechten Mausklick
für andere Methodenaufrufe nutzen, ich hab dazu mal ein wenig im Forum gesucht
und folgenden Code-Schnipsel gefunden:

Delphi-Quellcode:

procedure TfrmMyBrowser.ApplicationEvents1Message(var Msg: tagMSG; 
  var Handled: Boolean); 
begin 
  if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONDBLCLK) then 
  begin 
    if IsChild(Webbrowser1.Handle, Msg.hwnd) then 
    begin 
      Handled := True; 
    end; 
  end; 
end;

Ich hab den Code so übernommen, eigentlich sollte der Mausklick in diesem
Fall komplett verhindert werden. Leider ohne Erfolg. Hab ich irgendwas vergessen?

Mfg

[ken_jones]

Hast du "KeyPreview" im entsprechenden Formular aktiviert?