如何设置Delphi中的TWebBrowser，使其自动打开所有链接到新标签页？

2026-04-10 20:042阅读0评论SEO问题

内容介绍
文章标签
相关推荐

本文共计383个文字，预计阅读时间需要2分钟。

如何设置Delphi中的TWebBrowser，使其自动打开所有链接到新标签页？

我在尝试使用`Browser.Navigate(URL)`将网页加载到TWebBrowser中。但浏览器不会关注页面是否在线更新，所以只要我不重启程序，就不会显示新页面。例如，如果我导航到已经访问过的网页，它将不会自动刷新显示新内容。

我正在尝试使用Browser.Navigate(URL)将网页加载到TWebBrowser中.但是,浏览器不会关心页面是否在线更新,所以只要我不重启程序就不会显示新页面.

一个更具体的例子：
如果我导航到具有访问者计数器(作为图像)的网页,则计数器将递增.如果我离开该页面然后返回(不使用Back),计数器将不会递增.在Firefox中,它会增加.

这是我尝试过的,不会起作用：

const DLCTL_PRAGMA_NO_CACHE = $00004000; procedure TBrowserFrm.LoadURL(URL: string); var Flag: OleVariant; begin Flag:=DLCTL_PRAGMA_NO_CACHE; Browser.Navigate(URL, Flag); end; procedure TBrowserFrm.LoadURL(URL: string); var Flags: OleVariant; begin Flags := 'navNoHistory, navNoReadFromCache, navNoWriteToCache'; Browser.navigate2(URL, Flags); end;

有关如何使TWebBrowser加载真实页面的任何想法？

我想你必须使用4,而不是$00004000.

因为我使用www.ghisler.com(计数器在底部)我可以使用

procedure TForm2.Button2Click(Sender: TObject); var Flags: OLEVariant; begin Flags:=4; //NavNoReadFromCache WebBrowser1.Navigate('www.ghisler.com/', Flags); end;

它完美无缺(Delphi XE7).我看到TC主页,再点击超链接然后再点击Button2,计数器是新的.当我仅使用Navigate(URL)时,计数器仍然是相同的.

标签：Delphi –如何在 TWebBrowser