Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi DblClick von TWebBrowser-Komponente abfangen (https://www.delphipraxis.net/187155-dblclick-von-twebbrowser-komponente-abfangen.html)

Captnemo 2. Nov 2015 08:23


DblClick von TWebBrowser-Komponente abfangen
 
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.

Bernhard Geyer 2. Nov 2015 12:57

AW: DblClick von TWebBrowser-Komponente abfangen
 
Kommen den überhaupt noch Events durch?

Alternative wären chromium odet pdf.js zur Anzeige von Pdf im Browser

taaktaak 2. Nov 2015 16:53

AW: DblClick von TWebBrowser-Komponente abfangen
 
Moin, Moin.
Das funktioniert meines Wissens nur mit einem lokalen MouseHook
- Beispiele gibt es bei den Schweizern
Gruß Ralph


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:38 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz