TWebBrowser Links extern aufrufen?

[ThYpHoOn]

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

[Progman]

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.