怎样用TreeView显示系统的驱动器列表和文件夹
怎样用TreeView显示系统的驱动器列表和文件夹请问怎样用TreeView显示系统的驱动器列表和文件夹,同时用ListView显示出所选文件夹下的文件呢?如下图.
[img]http://376389218.129.tofor.com/temp/test.jpg[/img] 好长时间没来了,回个帖子!
首先你获取系统盘符的程序写好了吗?这里我不介绍了。
for i := 0 to Count - 1 do (此Count 为盘符个数)
begiin
ParentNode := TreeView.Items.AddObject(nil, **, **) 方法添加盘符
获取该盘符下的文件夹循环插入
for i := 0 to Count - 1 do (此Count 为该盘符下的根目录的文件夹个数)
begin
TreeView.Items.AddObject(ParentNode, **, **) 添加文件夹
end;
end;
不过上述方法不是太好,最好把这个写成单独的一个函数方法调用!先查看该盘符或文件夹下是否有孩子!
有则继续调用该方法画树,没有则循环!
listView事件同理!
上面你可能不是太能理解,漫漫琢磨吧,因为时间的缘故,没时间在这里了! 嗯.我试试吧.谢谢 何必这么费劲呢,直接用 TShellTreeView 和 TShellListView 搭配就可以了 这个行是行.但是不能加入节点的是吗?
我要的功能不只是本地.还在获取远程序机器的目录在本地以树型结构显示出来.
ShellTreeView控件不能满足吧?
页:
[1]
