DblClick von TWebBrowser-Komponente abfangen

[Captnemo]

Hi,

ich verwende zum Darstellen von PDF's in meinem Programm den TWebBrowser. Ist nicht das Optimum, aber ich habe noch keine bessere (kostengünstige) Alternative (außer Adobe ActiveX, das wohl nicht mehr mit ausgeliefert wird) gefunden.
Sicherlich muss ich mit in Hinsicht auf Windows10 eh noch nach was anderem Umschauen.

Jetzt aber zu meiner Frage: Wie kann ich einen Doppelklick auf das TWebBrowser-Object abfangen? Optimalerweise so, dass es auch nicht mehr an diese weitergeleitet wird?

So habe ich das schon probiert:

Delphi-Quellcode:

procedure Tfrm_ERNEu.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.message=WM_LBUTTONDBLCLK) then
  begin
    if PtInRect(wb1.BoundsRect, ScreenToClient(Msg.pt)) then
      OpenDoc(1);
    if PtInRect(wb2.BoundsRect, ScreenToClient(Msg.pt)) then
      OpenDoc(2);
    if PtInRect(wb3.BoundsRect, ScreenToClient(Msg.pt)) then
      OpenDoc(3);
    if PtInRect(wb4.BoundsRect, ScreenToClient(Msg.pt)) then
      OpenDoc(4);
  end;
end;

Das funktioniert auch, solange keine Document geladen ist. Ist diese aber erst mal drin, dann funktioniert das nicht mehr.