LinkLabel
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;
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;