![26153845_lysZ.gif](http://static.oschina.net/uploads/img/201409/26153845_lysZ.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