掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TreeNodeに個別のヒントを表示するには？ (ID:8256)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
新規で TreeView1 を Form1 に置いて適当に複数のノードをつくっておきます。 そして以下のようにします。 private { Private 宣言 } public revTN:TTreeNode; end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin TreeView1.ShowHint := true; end; procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var TN:TTreeNode; begin TN := TreeView1.GetNodeAt(X,Y); if TN = revTN then exit; revTN := TN; if not Assigned(TN) then begin Application.HideHint; exit; end; TreeView1.Hint := TN.Text; // ここで個別のテキストを設定 Application.ActivateHint(Mouse.CursorPos); end; ここではノードのテキストをそのままヒントとして表示しています。 TStringList のインスタンスと TTreeNode.Data を組み合わせると任意の 個別のテキストを設定できます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.