TlabelをDelphiのハイパーリンクのように振る舞わせるにはどうすればよいですか？

Question

TlabelをDelphiのハイパーリンクのように振る舞わせるにはどうすればよいですか？

注：逆方向の互換性の問題のため、Tlinklabelの使用には興味がありません。

Answer 1

青色、スタイルを下線に設定して、オンクリックイベントを追加してください！

procedure TForm1.Label1Click(Sender: TObject);
var
  MyLink: string;
begin
  MyLink := 'http://www.mysite.com/';
  ShellExecute(Application.Handle, PChar('open'), PChar(MyLink),    
   nil, nil, SW_SHOW);
end;

Answer 2

それはあなたがあなたのハイパーリンクに必要なものに依存します。私はただ...

• フォントの色を青に設定します
• マウスを使用して[Enter | leave | Move]イベントを使用して、下線スタイルをフォントに適切に適用します
• OnClickイベントを使用して、必要に応じてブラウザを生成し、フォントの色を変更します。

Answer 3

どのバージョンのDelphiを使用していますか？私のDelphi 4 IDEを見ると、TlabelにはMouseErter/Onmouseleaveイベントがありません。これは、ユーザーが「リンク」を覆うときにカーソルを「ハンド」に変更するために必要です。

OnClickイベントがあり、ユーザーのWebブラウザを起動するために配線することができます。

Delphiでフロントブラウザを持ち込む方法または起動方法

Answer 4

ブラウザ内のリンクにタブを付けてフォーカスを与えることができます。したがって、このタスクには、ウィンドウコントロール（所有者が描くTbuttonなど）を使用することを検討します。