喫茶XRAYトップページ

[スレッド全体
]

[3883] URLをリンクするラベルのようなコンポーネント返信 削除
2010/11/2 (火) 19:11:42 たてぐや
 たてぐやです。
 標題のようなコンポーネントがどこかにないでしょうか? 以前はインス
トールしてあったのですが、再インストールで消えてしまいました。それを
ダウンロードしたサイトはすでに消滅してしまったようです。
 よろしくお願いいたします。

[3885] Re:URLをリンクするラベルのようなコンポーネント返信 削除
2010/11/2 (火) 19:40:38 DEKO
こんにちは。

Delphi 2009 以降では標準で TLinkLabel というのがあります。
http://www.watercolor-city.net/ct_delphi/delphi_tiburon/doc_vcl/vcl_linklabel.htm

また、別の TLinkLabel があります。
こちらは Delphi 3 から対応しています。

[TLinkLabel v.1.0]
http://www.torry.net/authorsmore.php?id=5919

[3886] Re2:URLをリンクするラベルのようなコンポーネント返信 削除
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からリンクを検出して,等の用途には使えそうですが.よく分かりませんです.



[3887] Re3:URLをリンクするラベルのようなコンポーネント返信 削除
2010/11/2 (火) 20:05:43 Mr.XRAY
  LinkLabel1.Caption := '<a href="http://mrxray.on.coocan.jp/">Mr.XRAYのサイト';

あっ,<>の文字が,
&lt; <
&gt; >
です.


[▼次のスレッド]
INCM/CMT
Cyclamen v3.82