也在 TWebBrowser 中打开新页面

发布于 2024-11-24 04:25:09 字数 337 浏览 7 评论 0原文

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

提前致谢。

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

相权↑美人 2024-12-01 04:25:09

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。

TWebBrowser has an OnNewWindow2 event. Assuming the form holding the TWebBrowser is named Form1 and the web-control itself is named WebBrowser1, write a handler like this:

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;

This will create a new window, with a new TWebBrowser when the "click" is supposed to lead to a new window.

回复收藏 0 原文

~没有更多了~