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.