delphi - 如何使TLabel像Delphi中的超链接一样运行？

如何使TLabel表现得像Delphi中的超链接？

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

最佳答案

将其涂成蓝色，将样式设置为下划线并添加一个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;