如何在TWebBrowser中阻止脚本错误弹窗且保留OnShowScriptError事件

很多开发者一开始都会踩这个坑：用Silent := True关掉脚本错误弹窗，结果连OnShowScriptError事件也一起禁用了，想收集错误信息完全没机会。其实不用这么极端，咱们换个思路就能两全其美：

核心思路 #

保持Silent属性为默认的False（这样OnShowScriptError事件会正常触发），然后在事件处理逻辑里手动告诉TWebBrowser：“这个错误我自己处理了，不用弹窗口”。

具体实现步骤 #

1. 确认你的TWebBrowser组件Silent属性是False（默认就是这个值，要是之前改了记得改回来）。
2. 给WebBrowser的OnShowScriptError事件绑定处理函数，在函数里做两件事：
   • 收集脚本错误的详细信息（比如错误描述、行号、出错源码等）
   • 设置Handled参数为True，阻止默认弹窗弹出

Delphi代码示例 #

procedure TMainForm.WebBrowser1ShowScriptError(Sender: TObject;
  const Error: IScriptError; var Handled: Boolean);
begin
  // 这里可以根据你的需求把错误信息存到日志、数据库或者界面上
  Memo1.Lines.Add(Format('脚本错误：%s（行号：%d，URL：%s）', 
    [Error.Description, Error.Line, Error.URL]));
  Memo1.Lines.Add('出错源码片段：' + Error.SourceText);
  Memo1.Lines.Add('----------------------------------------');

  // 关键：设置Handled为True，阻止系统弹出默认的错误窗口
  Handled := True;
end;

为什么这个方法有效？ #

TWebBrowser的OnShowScriptError事件里的Handled参数就是用来控制是否显示默认错误窗口的。当你把它设为True，组件就会认为你已经处理了这个错误，不会再弹出那个烦人的模态窗口；同时因为Silent是False，事件会正常触发，你就能完整拿到IScriptError接口提供的所有错误细节。

如果需要更复杂的错误处理，比如拦截特定类型的脚本错误，也可以在事件里根据Error.Number（错误代码）做判断，灵活调整处理逻辑。

内容的提问来源于stack exchange，提问作者Paul