delphi - 在默认浏览器中打开 TWebBrowser 链接

Question

我的应用程序在 TWebBrowser 控件中显示从网络加载的小横幅。该横幅实际上是一个包含图像的 HTML 页面；当用户单击图像时，他们将进入我们当前正在进行的促销事件。

这里的坏处是，当单击 TWebBrowser 中的链接时，事件页面会在 Internet Explorer 中打开，而不是在默认浏览器中打开。我知道发生这种情况是因为 TWebBrowser 是基于 IE 的控件，但是有没有办法在用户选择的浏览器中打开链接？

谢谢。

Answer 1

在 OnBeforeNavigate2 事件中，检查请求的 URL，如果它是您想要启动的 URL，则 Stop() 当前导航并调用 ShellExecute( ) 在用户的默认外部浏览器中启动 URL。

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject; pDisp: IDispatch; var URL: Variant; var Flags: Variant; var TargetFrameName: Variant; var PostData: Variant; var Headers: Variant; var Cancel: WordBool);
begin  
  if (URL should be launched) then
  begin
    Cancel := True;
    WebBrowser1.Stop;
    ShellExecute(0, nil, PChar(String(Url)), nil, nil, SW_SHOWNORMAL);
  end;
end;