Delphi 2009 之 TLinkLabel

最新推荐文章于 2024-03-08 11:34:17 发布

JmLei

最新推荐文章于 2024-03-08 11:34:17 发布

阅读量698

点赞数

分类专栏： Delphi 文章标签： delphi

Delphi 专栏收录该内容

33 篇文章

订阅专栏

本文介绍了一种在Delphi中使用ShellAPI单元的方法来实现通过点击LinkLabel控件上的超链接来打开网页的功能。具体实现了如何设置LinkLabel的点击事件，并调用ShellExecute函数打开指定URL。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

uses ShellAPI;
procedure TForm1.FormCreate(Sender: TObject);
begin
  LinkLabel1.Caption := '<a href="http://blog.youkuaiyun.com/jmlei">jmlei 博客</a>';
end;
procedure TForm1.LinkLabel1LinkClick(Sender: TObject; Link: string;
  LinkType: TSysLinkType);
begin
  ShellExecute(0, nil, PChar(Link), nil, nil, 1);
end;