TWebBrowser弹出窗口问题

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

留下评论

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

15 − 10 =