喫茶XRAY [Mr.XRAY掲示板]

たてぐやさん，DEKOさんどうも．

今TLinkLabelってを使ってみたんですが．
どうやら，タグを解析してくれるということらしい? です．

procedure TForm1.FormShow(Sender: TObject);
begin
  LinkLabel1.Caption := '<a href="http://mrxray.on.coocan.jp/">Mr.XRAYのサイト';
end;

//  ShellExecuteの使用にはusesにShellAPIが必要

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

これだったら，

procedure TForm1.Label1Click(Sender: TObject);
var
  Link : String;
begin
  Link := 'http://mrxray.on.coocan.jp/';
  ShellExecute(Handle, PChar('Open'), PChar(Link), nil, nil, SW_SHOWNORMAL);
end;

と同じですが...
HTMLからリンクを検出して，等の用途には使えそうですが．よく分かりませんです．