如何抑制 TEmbeddedWB 中的 ActiveX 警告对话框？答案

【问题标题】：How to suppress ActiveX warning dialogs in TEmbeddedWB?如何抑制 TEmbeddedWB 中的 ActiveX 警告对话框？
【发布时间】：2015-08-04 14:35:17
【问题描述】：

在使用 TEmbeddedWB 的 Delphi XE8 VCL 表单项目中，出于安全原因，在 EmbeddedWB1 中，我将 DontExecuteActiveX 和 DontDownloadActiveX 属性都设置为 True：

我还通过将 EmbeddedWB1.DialogBoxes.DisableAll 设置为 True 来禁用 EmbeddedWB1 中的对话框：

但是，当我导航到如下页面时：
https://www.iplocation.net/
或：
http://www.hostip.info/
我仍然收到 ActiveX 警告对话框：

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

那么我怎样才能抑制这些对话框呢？

【问题讨论】：

我不确定它是否与TEmbeddedWB相同，但使用TWebBrowser，如果您在浏览器中文档的IHtmlDocument2界面上执行“Doc.DesignMode := 'on';”，它禁止弹出有关 js 错误的警告。如果它对您的 ActiveX 警告有类似作用，可能值得一看。如果您发现确实如此，我会将其发布为答案。

【解决方案1】：

找到您的 EmbeddedWB 组件 -> 事件 -> OnScriptError：在此处填写这些行：

continuescript:=true;
showdialog:=false;

最好开启“静音”模式，一些网页无法正确加载“Silent:=True”参数...

希望对你有帮助

【讨论】：