delphi - 阻止 TWebBrowser 刷新的错误消息

Question

我在我的 Delphi 应用程序中使用 TWebBrowser。当 Internet Explorer 脚本错误对话框弹出时，它会阻止自动刷新 ( "the requested resource is in use")。有没有办法自动关闭错误对话框？
TIA
史蒂文

编辑
一种可能的解决方案是使用 Mozilla ActiveX 控件而不是 IE（Firefox 从不显示错误），但这有其自身的问题。

Answer 1

在 Object Inspector 或代码中将 TWebBrowser Silent 属性设置为 True：

  WebBrowser1.Silent := True;
  WebBrowser1.Navigate2(sURl);

它将防止弹出错误对话框，因此您不必关闭它;-)

Answer 2

您可以通过单击代码中的按钮来关闭对话框，但可能更好的方法是防止导致对话框首先显示的错误。

我只是在这里猜测，但我认为当您尝试在页面完成加载之前刷新页面时会出现此错误。该Navigate2方法是异步的，即。它立即返回，浏览器继续在后台线程中加载页面。加载文档时，浏览器会触发OnDocumentComplete事件 - 您应该处理该事件以更新您的状态变量。不要尝试调用Navigate2，Refresh或者Refresh2在当前文档完全加载之前。