Delphi 2009 之 TLinkLabel

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