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.
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)
