请问用treeview控件做一个(100分)

怎么用这个控件在程序中创建目录（多个）和一个目录下放多个项目，谢谢了

没说准确，应该是创建节点，

treeview这个控件可以动态的创建目录树，你可以用表把子结点和和父结点存入，然后利用
treeview1.items.add();//添加结点
treeview1.items.addchildfirst();//添加子结点
具体可以查看treeview控件的用法。

有点眉目了，我用的是D7，控件没有例子，请具体再给以下，完了就送分了：、
1、根可以设图标吗？
2、选中的节点可以设置色吗？
3、怎么把表对应存入，是用adoquery???

下面是一段我设计目录树的代码，其中建了两个表。估计对楼主有帮助。
procedure Tfzjm.FormShow(Sender: TObject);
var
str,str1,str2:string ;
begin
treeview1.Items.Clear;
str2:='''' ;
with adoquery1 do
begin
close;
sql.clear;
sql.Add('select distinct ml from ml');
open;
end;
adoquery1.first;
while not adoquery1.eof do
begin
node2:=treeview1.items.add(node1,adoquery1.fieldbyname('ml').asstring);
str1:=adoquery1.fieldbyname('ml').asstring ;
with adoquery2 do

begin
close;
sql.clear;
str:= 'select * from treeview where ml='+str2+str1+str2 ;
sql.add(str);
open;
end;
adoquery2.first;
while not adoquery2.eof do
begin
treeview1.items.addchildfirst(node2,adoquery2.fieldbyname('mm').asstring);
adoquery2.next;
end;
adoquery1.next;
end;
end;

太谢谢了，先给你分了，然后我再细看你给我的。