本例效果图:
![](https://www.cnblogs.com/images/cnblogs_com/del/148408/o_88133.gif)
代码文件:
![](https://www.cnblogs.com/images/cnblogs_com/del/148408/o_88133.gif)
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) LinkLabel1: TLinkLabel; procedure FormCreate(Sender: TObject); procedure LinkLabel1LinkClick(Sender: TObject; Link: string; LinkType: TSysLinkType); end; var Form1: TForm1; implementation {$R *.dfm} uses ShellAPI; procedure TForm1.FormCreate(Sender: TObject); begin LinkLabel1.Caption := '<a href="http://del.cnblogs.com">万一的 Delphi 博客</a>'; end; procedure TForm1.LinkLabel1LinkClick(Sender: TObject; Link: string; LinkType: TSysLinkType); begin ShellExecute(0, nil, PChar(Link), nil, nil, 1); end; end.窗体文件:
object Form1: TForm1 Left = 23 Top = 87 Caption = 'Form1' ClientHeight = 122 ClientWidth = 291 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesigned OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object LinkLabel1: TLinkLabel Left = 24 Top = 24 Width = 53 Height = 17 Caption = 'LinkLabel1' TabOrder = 0 OnLinkClick = LinkLabel1LinkClick end end