我如何使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 | well |移动]事件适当地将下划线样式应用于字体
• 使用OnClick事件来产生浏览器并根据需要更改字体颜色。

Answer 3

您正在使用什么版本的Delphi？看着我的Delphi 4 IDE，Tlabel没有onMouseenter/onmouseleave事件，当用户徘徊在“链接”上时，将光标更改为“手”是必要的。

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

如何在Delphi带来前面或启动浏览器

Answer 4

一个人可以标签并将重点放在浏览器中的链接上。因此，我将考虑使用此任务的窗口控件（例如所有者绘制的tbutton）。