Delphi 2009 TLinkLabel 超鏈接標籤完整示例

TLinkLabel：支援 HTML 超鏈接的標籤控件

Delphi 2009 引入 TLinkLabel，通過 Caption 屬性設置 HTML 格式文本，OnLinkClick 事件響應鏈接點擊，配合 ShellExecute 實現打開網頁/郵件/文件等操作。

效果圖：

代碼文件

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 := '萬一的 Delphi 博客';
end;

procedure TForm1.LinkLabel1LinkClick(Sender: TObject; Link: string; LinkType: TSysLinkType);
begin
  ShellExecute(0, nil, PChar(Link), nil, nil, SW_SHOWNORMAL);
end;
end.

窗體文件 (DFM)

object Form1: TForm1
  Left = 23; Top = 87; Caption = 'Form1'
  ClientHeight = 122; ClientWidth = 291
  object LinkLabel1: TLinkLabel
    Left = 24; Top = 24; Width = 53; Height = 17
    Caption = 'LinkLabel1'; TabOrder = 0
    OnLinkClick = LinkLabel1LinkClick
  end
end

要點： Caption 接受標準 HTML `` 標籤；Link 參數直接傳給 ShellExecute 支援 http、mailto、file 等協議。