如何让TLabel在Delphi中表现得像超链接？

Question

如何让TLabel在Delphi中表现得像超链接？

注意：由于向后兼容性问题，我对使用TLinkLabel不感兴趣。

Answer 1

将其涂成蓝色，将样式设置为下划线并添加OnClick事件！

procedure TForm1.Label1Click(Sender: TObject);
var
  MyLink: string;
begin
  MyLink := 'http://www.mysite.com/';
  ShellExecute(Application.Handle, PChar('open'), PChar(MyLink),    
   nil, nil, SW_SHOW);
end;

Answer 2

这取决于您对超链接的要求。我只是......

• 将字体颜色设置为蓝色
• 使用OnMouse [Enter | Leave | Move]事件将下划线样式适当地应用于字体
• 使用OnClick事件生成浏览器＆amp;根据需要更改字体颜色。

Answer 3

您使用的是哪个版本的Delphi？看看我的Delphi 4 IDE，TLabel没有OnMouseEnter / OnMouseLeave事件，当用户将鼠标悬停在“链接”上时，需要将光标更改为“Hand”。

它有OnClick事件，您可以连接它以启动用户的Web浏览器：

How to bring front or launch browser in Delphi

Answer 4

可以选择标签并将焦点放在浏览器中的链接上。因此，我会考虑使用窗口控件（如所有者绘制的TButton）来执行此任务。