Evitar la obertura de un Popup

Artículo por Club Developers · 13 March 2006

2391 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;