【怎样装指定目录到TreeView的指定节点？】请指教，一定给分！

Question

怎样装指定目录到TreeView的指定节点？如图：___电影专辑      {"电影专辑"为已设好的名称的总节点}
|     |____电影           {"电影"的实际目录是：D:\电影}
|     |      |____小电影  {"小电影"的实际目录是：D:\电影\小电影}
|     |      |____  ...
|     |____  ...
|
|___我的作品      {"我的作品"为已设好的名称的总节点}
|     |____Flash作品      {"Flash作品"的实际目录是：E:\Flash作品}
|     |____软件作品       {"软件作品"的实际目录是：E:\软件作品}
|     |____  ...
|
|___  ...

Answer 1

将实际目录：D:\电影\小电影  信息添加到节点的Data属性中。在TreeView的OnClick中将目录指定到节点的Data属性指向的目录即可。

Answer 2

刚写的一段代码，把指定根目录下的所有文件显示在treeview中，修改一下就可以
符合你要求了procedure TForm1.Button20Click(Sender: TObject);
begin
  displaykind(nil,'e:\'); //可以改变此处的根目录名
end;procedure TForm1.displaykind(parentnode:TTreeNode;sDirName:string);
var
  i,hFindFile:integer;
  ss,tfile:String;
  FindFileData:WIN32_FIND_DATA;
  treenode:TTreeNode;
begin
  ChDir(sDirName);
  hFindFile:=FindFirstFile('*.*',FindFileData);
  Application.Postmessage;
  if hFindFile<>INVALID_HANDLE_VALUE then
  begin
    repeat
      tfile:=FindFileData.cFileName;
      if (tfile='.') or (tfile='..') then  Continue;
      if FindFileData.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY then
      begin//是一个子文件夹
        treenode:=TreeView1.Items.Addchild(parentnode,tfile);
       if sDirName[Length(sDirName)]<>'\' then
          displaykind(treenode,sDirName+'\'+tfile)
       else
          displaykind(treenode,sDirName+tfile);
      end;
    until FindNextFile(hFindFile,FindFileData)=false;
  end;
  ChDir(sDirName);
end;

Answer 3

利用TTreeNode.Data，可以给任何一个节点挂上任何的信息。