用WebBrowser1浏览某一网页时，如何屏蔽该网页自动弹出的新窗口？？？(50分)

L

loxtln

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #1

用WebBrowser1浏览某一网页时，如何屏蔽该网页自动弹出的新窗口？？？或者说生成新窗口
时自动关闭之？？？

 

M

mdc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #2

在delphi 园地里有关闭广告窗口的源代码下。
找到了给分啊。

 

S

sky2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #3

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel := false;
end;

 

你

你若有情

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #4

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel := true;
end;