delphi - 如何使 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 事件生成浏览器并根据需要更改字体颜色。

Answer 3

你用的是什么版本的德尔福？查看我的 Delphi 4 IDE，TLabel 没有 OnMouseEnter/OnMouseLeave 事件，当用户将鼠标悬停在“链接”上时，将光标更改为“手”是必要的。

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

如何在 Delphi 中引入前端或启动浏览器

Answer 4

可以在浏览器中选择并关注链接。因此，我会考虑为此任务使用窗口控件（如所有者绘制的 TButton）。