Evitar la obertura de un Popup

2295 vistas

Cuando navegamos por internet con el objeto TWebBrowser, a veces se abren ventanas Popup de forma automática. Para evitar la obertura de Internet Explorer tendremos que codificar el evento OnNewWindow2 del componente TWebBrowser para modificar el valor de su parámetro Cancel.



delphi
  1. procedure TMyForm.MyWebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
  2. begin
  3.   Cancel := True;
  4. end;