7

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

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

4

4 に答える 4

25

青に色を付け、スタイルを下線に設定し、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-25T06:58:30.277 に答える
7

それはあなたがあなたのハイパーリンクに何を要求するかに依存します。私はただ...

  • フォントの色を青に設定します
  • OnMouse [Enter | Leave | Move]イベントを使用して、下線スタイルをフォントに適切に適用します
  • 必要に応じて、OnClickイベントを使用してブラウザを生成し、フォントの色を変更します。
于 2009-08-25T06:59:11.007 に答える
1

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

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

Delphi でブラウザを前面または起動する方法

于 2009-08-25T07:06:35.220 に答える
0

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

于 2009-08-25T07:26:15.337 に答える