Comment annuler l'ouverture d'un popup ?

[url=#disablepopup]Comment annuler l'ouverture d'un popup
?[/url]


Lorsque vous intégrez dans votre application l'objet TWebBrowser pour naviguer
sur Internet, il arrive souvent d'avoir des fenêtres Popup qui s'ouvrent
automatiquement. Pour annuler l'ouverture d'Internet Explorer dans ce cas là,
vous devez écrire une procédure pour l'évènement OnNewWindow2 de votre
TWebBrowser pour affecter la valeur True à la variable Cancel.

Code:

procedure TMyForm.MyWebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
begin
  Cancel := True;
end;