在 Delphi 中使用TMS Web Core实现图像与网站的链接

uidvcgyl  于 2023-11-18  发布在  其他
关注(0)|答案(2)|浏览(147)

我试图使用TWebImageControlTWebLinkLabel组件将图像链接到网站,我知道我应该使用onClick事件,但如何编写代码才能使链接正常工作?

aelbi1ox

aelbi1ox1#

基于TWebLinkLabel,您只需指定有效的URL链接作为其标题的一部分,它会在运行时自动更改为超链接。
对于TWebImageControl,您可以指定加载图像的URL。但是如果您想在单击TImageControl时打开不同的图像,则需要使用OnClick事件并提供自定义URL,如Shaun Roselt的回答所示

zd287kbt

zd287kbt2#

有两种方法可以链接到网站或打开URL。一种是使用window.open,另一种是使用Application.Navigate

应用程序.导航

Application.Navigate函数有两个参数,第一个参数是URL,第二个参数是TNavigationTarget
在新标签页中导航到URL:

Application.Navigate('https://www.bing.com', TNavigationTarget.ntBlank);

字符串
导航到同一选项卡中的URL:

Application.Navigate('https://www.bing.com', TNavigationTarget.ntPage);

window.open(示例网站)

下面是我为window.open编写的一个小函数:

procedure OpenURL(URL: String; NewTab: Boolean = True);
begin
  if NewTab then
    window.open(URL, '_blank')
  else
    window.open(URL, '_self');
end;


NewTab参数用于指定是在新的浏览器选项卡中打开链接,还是在与网站相同的选项卡中打开链接。
因此,如果您希望导航到“https://www.bing.com/“,则可以在onClick事件中编写以下代码来调用该函数:

OpenURL('https://www.bing.com', False);

相关问题