如何使 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

用户可以通过 Tab 键切换到浏览器中的链接并给予其焦点。因此，我会考虑使用窗口控件（如所有者绘制的 TButton）来完成此任务。