TWebBrowser弹出窗口问题

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



发表评论

电子邮件地址不会被公开。 必填项已用*标注

− 6 = 3