Delphi-PRAXiS - Delphi TWebBrowser Links extern aufrufen?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Netzwerke (https://www.delphipraxis.net/14-netzwerke/)

- - Delphi TWebBrowser Links extern aufrufen? (https://www.delphipraxis.net/167405-twebbrowser-links-extern-aufrufen.html)

TWebBrowser Links extern aufrufen?

Moin,

gibt es eine Möglichkeit die Hyperlinks die im TWebBrowser angezeigt werden entsprechend beim anklicken im externen StandardBrowser aufzurufen? Mir würde jetzt spontan die Idee einfallen alle "<a href"'s mit target="_blank" erweitern aber das wäre etwas arg aufwendig und je nach Dokument könnte es schon ein entsprechendes Target geben etc... Ich hoffe es ist nur eine versteckte Property die ich noch nicht gefunden habe?!

Gz ThY

AW: TWebBrowser Links extern aufrufen?

im BeforeNavigate2 des TWebBrowsers folgende Procedure einfügen:

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.