[请教]创建一个多级目录，并且用Treeview实现这个目录结构

Question

创建一个多级目录，并且把这个目录结构用Treeview显示，通过一个按钮触发这个事件。
请教一下，不是很清楚
呵呵~谢谢大家

Answer 1

1
 --11
 --12
2
 --21
 --22
procedure TForm1.Button1Click(Sender: TObject);
var
  Tn:TTreeNode;
begin
  Tn := TreeView1.Items.AddChild(nil,'1');
  TreeView1.Items.AddChild(Tn,'11');
  TreeView1.Items.AddChild(Tn,'12');
  Tn := TreeView1.Items.AddChild(nil,'2');
  TreeView1.Items.AddChild(Tn,'21');
  TreeView1.Items.AddChild(Tn,'22');
end;

Answer 2

这样，可以创建多级文件夹
  ForceDirectories('c:\temp\dir1\dir2')

Answer 3

想从数据库读出来做成treeview？

Answer 4

可以了，其实也没什么功能的，就是想通过一个事件把创建的多级目录用treeview给表示出来谢谢