Hice un navegador WEB en Delphi, pero la nueva ventana que se abre al hacer clic en algunos enlaces siempre es IE.
Práctica de agregar el procedimiento onNewWindow2 de webbroser
TFmMain.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
str: string;
begin
//Desactivar página emergente
Cancelar: = true;
comenzar
p>
intentar
str:= WebBrowser1.oleObject.document.ActiveElement.GetAttribute('href'); p> if str lt; gt; '' entonces
comenzar
probar
WebBrowser1.Navigate(str);
excepto
showmessage('¡Este sitio no se puede abrir en este momento!');
end
end
excepto
fin;
fin;
p>