La Red de Conocimientos Pedagógicos - Currículum vitae - Hice un navegador WEB en Delphi, pero la nueva ventana que se abre al hacer clic en algunos enlaces siempre es IE.

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>