TLabelをDelphiのハイパーリンクのように動作させるにはどうすればよいですか？

TLabelをDelphiのハイパーリンクのように動作させるにはどうすればよいですか？TLabelをDelphiのハイパーリンクのように動作させるにはどうすればよいですか？

注：TLinkLabelは、下位互換性の問題があるため使用しません。

2009-08-25 Rowan

色は青で、スタイルをアンダーラインに設定してOnClickイベントを追加します。

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;

出典

2009-08-25 06:58:30 DmitryK

これは私が探していたものです。他の誰も他のアイデアを持っていないことを確認するために、私は1日か2日でそれを受け入れます。乾杯。 – Rowan

は 'SW_SHOWNORMAL'でなければなりません。 –

"using ShellApi;"を追加することを忘れないでください。 –

ハイパーリンクに必要なものによって異なります。私はちょうど...

が
OnMouseを使用青にフォントの色を設定したい適切なフォントに下線のスタイルを適用するには、イベントを[入力| |まま移動]
にOnClickイベントを使用ブラウザを起動する&必要に応じて、フォントの色を変更します。

出典

2009-08-25 06:59:11 moobaa

OnMouseEnterとOnMouseLeaveはD7以前では利用できません（D2005についてはわからない）ので、TLinkLabelに関するコメントからも除外されます。あなたはOnMouseMoveを使用する必要があります –

私はちょうど確認しました - Delphi 7はもっとも間違いなくOnMouseEnterとOnMouseLeaveを持っています：} – moobaa

@Gerry：そうです。ちょっとだけ働かなくてはなりません。 CM_MOUSEENTERおよびCM_MOUSELEAVEメッセージのハンドラを追加するだけです。 –

どのデルファイのバージョンを使用していますか？私のDelphi 4 IDEを見ると、TLabelにはOnMouseEnter/OnMouseLeaveイベントがありません。これは、ユーザーが「リンク」の上にカーソルを置いたときにカーソルを「手」に変更する必要があります。

は、それはあなたがユーザーのWebブラウザを起動するまで配線することができOnClickイベント、持っていない：へ

How to bring front or launch browser in Delphi

出典

2009-08-25 07:06:35

Delphi 2009.おそらくマウスが間違った言葉でした。 TLabelのプロパティでは、D2009では、このラベルにどのカーソルを使用するかを指定できます。 – Rowan

一つの缶タブをし、ブラウザ内のリンクにフォーカスを与えます。したがって、私はこのタスクのために（所有者が作成したTButtonのような）ウィンドウコントロールを使用することを検討します。

出典

2009-08-25 07:26:15

TLabelをDelphiのハイパーリンクのように動作させるにはどうすればよいですか？

答えて

関連する問題