|
2010/11/2 (火) 19:57:53 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からリンクを検出して，等の用途には使えそうですが．よく分かりませんです．
|
|