TWebBrowser弹出窗口问题

我用TWebBrowser开发的浏览器,如何防止烦人的‘弹出窗口’
procedure TMainForm.IE1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
begin
Cancel := True;
end;



发表评论

您的电子邮箱地址不会被公开。

9 + 1 =