Evitar la obertura de un Popup

Artículo por Club Developers · 13 marzo 2006

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