用TreeView浏览目录

jeepPower4x4

jeepPower4x4

2016-02-19 16:34

今天图老师小编给大家精心推荐个用TreeView浏览目录教程,一起来看看过程究竟如何进行吧!喜欢还请点个赞哦~

  

void __fastcall TForm1::FormCreate(TObject *Sender)
{
CurrentDir=GetCurrentDir();
UpdateTreeView();
UpdateListView();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UpdateTreeView()
{
TTreeNode *rNode,*mNode;
TreeView1-Items-Clear();
rNode=TreeView1-Items-Add(TreeView1-Selected,"我的电脑");
rNode-ImageIndex=1;
rNode-SelectedIndex=1;
mNode=TreeView1-Items-AddChild(rNode,"A:");
mNode-ImageIndex=2;
mNode-SelectedIndex=2;
AddDirectory("A:",mNode);
for(int i=1;iDriveComboBox1-Items-Count;i++)
 {
 mNode=TreeView1-Items-AddChild(rNode,AnsiString(char('B'+i))+":");
 mNode-ImageIndex=3;
 mNode-SelectedIndex=3;
 AddDirectory(AnsiString(char('B'+i))+":",mNode);
 }
}
//------------------------------------------------------------------------
void TForm1::AddDirectory(AnsiString path,TTreeNode *fNode)
{
TSearchRec sr;
TTreeNode *mNode;
if(FindFirst(path+"\*.*" ,faDirectory,sr)==0)
 {
 if(sr.Attr==faDirectory)
  {
  if(sr.Name!="."&&sr.Name!="..")
   {
   mNode=TreeView1-Items-AddChild(fNode,sr.Name);
   mNode-ImageIndex=0;
   mNode-SelectedIndex=4;
   // AddDirectory(path+"\"+sr.Name,mNode);
   }
  }
 }
while(FindNext(sr)==0)
 {
 if(sr.Attr==faDirectory)
  {
  if(sr.Name!="."&&sr.Name!="..")
   {
   mNode=TreeView1-Items-AddChild(fNode,sr.Name);
   mNode-ImageIndex=0;
   mNode-SelectedIndex=4;
   // AddDirectory(path+"\"+sr.Name,mNode);
   }
  }
 }
FindClose(sr);
}
//--------------------------------------------------------------------
void __fastcall TForm1::TreeView1Changing(TObject *Sender, TTreeNode *Node, bool &AllowChange)
{
Screen-Cursor=crHourGlass;
TSearchRec sr;
TTreeNode *NodeTmp=Node;
AnsiString DirName,DirTmp;
DirName=Node-Text;
for(int i=Node-Level;i1;i--)
 {
 NodeTmp=NodeTmp-Parent;
 DirTmp=NodeTmp-Text;
 if(DirTmp.SubString(DirTmp.Length(),1)!="\")
 DirTmp+="\";
 DirName.Insert(DirTmp,0);
 }
if(DirName.SubString(DirName.Length(),1)!="\")
 DirName+="\";
for(int j=0;jNode-Count;j++)
 {
 if(Node-Item[j]-Count==0);
  {
  if(FindFirst(DirName+Node-Item[j]-Text+"\*.*", faAnyFile, sr) == 0)
   {
   do
    {
    //Node-Item[j]-ImageIndex=5;
    //Node-Item[j]-SelectedIndex=4;
    if((sr.Attr&faDirectory)&&sr.Name!="."&&sr.Name!="..")
     {
     Node-Item[j]-ImageIndex=0;
     Node-Item[j]-SelectedIndex=4;
     TreeView1-Items-AddChild(Node-Item[j],sr.Name);
     }
    }
    while (FindNext(sr)==0);
    FindClose(sr);
   }
  }
 }
Screen-Cursor=crDefault;
}

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)
展开更多 50%)
分享

猜你喜欢

用TreeView浏览目录

编程语言 网络编程
用TreeView浏览目录

DataGrid巧用实现目录浏览

电脑网络
DataGrid巧用实现目录浏览

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

用 JavaScript 迁移目录

Web开发
用 JavaScript 迁移目录

TreeView的操作

电脑网络
TreeView的操作

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

简单的文件目录浏览源程序

ASP
简单的文件目录浏览源程序

LINE9的目录浏览源程序

Web开发
LINE9的目录浏览源程序

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

出色的网站联系表单页面设计

出色的网站联系表单页面设计

美橙建站宝典:域名陷阱见招拆招

美橙建站宝典:域名陷阱见招拆招
下拉加载更多内容 ↓