Delphi TWebBrowser Links extern aufrufen?

Thema durchsuchen

Ansicht

Themen-Optionen

TWebBrowser Links extern aufrufen?

Ein Thema von ThYpHoOn · begonnen am 28. Mär 2012 · letzter Beitrag vom 28. Mär 2012

Vorheriger Beitrag

Nächster Beitrag

Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge

Delphi 10.1 Berlin Starter

AW: TWebBrowser Links extern aufrufen?

28. Mär 2012, 11:50

im BeforeNavigate2 des TWebBrowsers folgende Procedure einfügen:

markieren

Delphi-Quellcode:

			procedure TfrmMain.WBBeforeNavigate2(ASender: TObject; const pDisp: IDispatch;

  var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;

  var Cancel: WordBool);

var

  ArgStr: String;

begin

  ArgStr:=URL;

  ShellExecute(Self.Handle, 'open', PChar(ArgStr), nil, nil, SW_SHOWNORMAL);

  Cancel:=True;

end;

Nicht getestet, aber so könnte es funktionieren, dass die Webseite mit dem aktuellen Standardbrowser aufgerufen wird. Die Unit ShellApi muss mit im uses-Block stehen.

Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)