Noch einmal kurz:
Die Webseite L, welche du in deiner App mit TWebBrowser anzeigen lässt enthält Links.
Du möchtest nun, dass alle oder eventuell nur ein Teil dieser Links im Standardbrowser/Wunschbrowser S geöffnet werden.
Wenn du jene Links in L, welche du im Browser S öffnen lassen willst im
HTML Code
mit target="_blank" versiehst, dann löst TWebBrowser beim Klick auf einen dieser
target="_blank" Links das Ereignis OnNewWindow3 aus. Was du tun musst ist nicht viel:
Delphi-Quellcode:
procedure TsjOnlineForm.WebBrowser1NewWindow3(ASender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: Cardinal;
const bstrUrlContext, bstrUrl: WideString);
begiB
OeffneMitStandardBrowser( bstrUrl );
cancel := true;
end;
Danke Michael, funktioniert einwandfrei
