TreeViewの展開 (ID:39524)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 さんぷる procedure TForm6.FormCreate(Sender: TObject); var TreeNode1,TreeNode2,TreeNode3: TTreeNode; begin TreeNode1 := TreeView1.Items.AddFirst(TreeView1.TopItem,'AAA'); TreeNode2 := TreeView1.Items.AddChild(TreeNode1,'BBBB'); TreeNode3 := TreeView1.Items.AddChild(TreeNode2,'CCC'); TreeView1.TopItem.Expand(True); end;