delphi - 也在 TWebBrowser 中打开新页面

Question

我创建了一个包含 twebBrowser 的应用程序。问题是，当我单击某个链接(例如 gmail)时，它会在我的默认浏览器(即 IE)的新窗口中打开。我如何让它像 firefox 或 chrome 等一样工作，在它们的窗口中打开单击的链接。该 URL 应在 TWebBrowser 的窗口中打开。我必须在运行时创建一个新的表单并在运行时使用 TWebBrowser 吗？不需要这样的代码，想法就可以

提前致谢。

附注我的组织阻止 Gmail、Facebook 等，但是通过我的 TWebBrowser，我可以打开它们。我的 QA 人员可以在他们的日志中看到这一点吗？我的猜测是否定的，因为那时他们会阻止它。您对此有何评论

Answer 1

TWebBrowser 有一个 OnNewWindow2 事件。假设持有 TWebBrowser 的表单名为 Form1 并且 Web 控件本身名为 WebBrowser1，请编写如下处理程序:

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
var NF: TForm1;
begin
  NF := TForm1.Create(Application);
  NF.Visible := True;
  NF.WebBrowser1.RegisterAsBrowser;
  ppDisp := NF.WebBrowser1.DefaultInterface;
end;

当“点击”应该打开一个新窗口时，这将创建一个新窗口，并带有一个新的TWebBrowser。