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