TWebBrowser alle Popups blockieren

[xelx]

hi ich bin neu hier

und hab auch schon meine erste frage:
gibt es eine möglichkeit _alle_ popups in der TWebBrowser komponente zu blockieren?

folgendes hab ich schon probiert:

procedure TChecker.WebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
begin
 ppDisp := webBrowserDummy;
 Cancel := True;
end;

die funktion wird allerdings nicht immer aufgerufen.

gibt es eine möglichkeit wirklich alle popups zu blockieren?

[chrismueller]

So geht's:

So geht's: Einfach in OnNewWindow2 den Quelltext

Sleep(1);

oder

Sleep(1);
ShowMessage(''Ein PopUp wurde geblockt.');

eingeben. Schon funtzt's.