好长时间没来了,回个帖子!
首先你获取系统盘符的程序写好了吗?这里我不介绍了。
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事件同理!
上面你可能不是太能理解,漫漫琢磨吧,因为时间的缘故,没时间在这里了!