掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TreeViewで最後に開いたノードを開かせるには (ID：16613)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
スマートでないですが、一つの法として\マークは割愛 procedure TForm1.Button1Click(Sender: TObject); var ZenkaiNoFolderPath: string; cur: TTreeNode; begin ZenkaiNoFolderPath := 'rootdata1data3'; cur := TreeView1.Items.GetFirstNode; cur := OhHit(ZenkaiNoFolderPath, cur); if cur <> nil then begin TreeView1.Selected := cur; TreeView1.SetFocus; end; end; function OhHit(fullpath: string; cur: TTreeNode): TTreeNode; var i: integer; bknode: TTreeNode; find: string; begin result := nil; find := ''; bknode := cur; while bknode <> nil do begin find := bknode.Text + find; bknode := bknode.Parent; end; if fullpath = find then begin result := cur; exit; end; for i := 0 to cur.Count - 1 do begin result := OhHit(fullpath, cur.Item[i]); if result <> nil then exit; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.