Delphi 如何在TEmbeddedWB中抑制ActiveX警告对话框？

在使用的Delphi XE8 VCL表单项目中，出于安全原因，我在EmbeddedWB1中将

DontExecuteActiveX

和

DontDownloadActiveX

属性设置为

True

：

我还通过将

EmbeddedWB1.DialogBoxes.DisableAll

设置为

True

，禁用了EmbeddedWB1中的对话框：

但是，当我导航到如下页面时：

或：

我仍然会看到ActiveX警告对话框：

无法显示一个或多个ActiveX控件，原因如下：1） 您当前的安全设置禁止在上运行ActiveX控件 或2）您已阻止其中一个控件的发布者。 因此，页面可能无法正确显示

---

那么，如何抑制这些对话框呢？

找到您的EmbeddedWB组件->事件->OnScript错误： 请在此处填写这些行：

continuescript:=true;
showdialog:=false;

最好打开“静默”模式，一些网页不能正确加载“

Silent:=True

”参数

---

希望对您有所帮助

我不确定TEmbeddedWB是否也一样，但是对于TWebBrowser，如果您在浏览器中的文档的IHtmlDocument2界面上执行“Doc.DesignMode:='on'；”，它将抑制关于js错误的弹出警告。可能值得一看，它是否对ActiveX警告也有类似的作用。如果你发现了，我会把它贴出来作为答案。