用TreeView浏览目录

韩冰

void __fastcall TForm1::FormCreate(TObject *Sender) { 4 s6 O0 p+ v. ]8 ]* ^% x$ C1 ACurrentDir=GetCurrentDir(); 7 n* {4 s# y) p# K$ `& f8 tUpdateTreeView(); 4 ]7 v8 K4 j; EUpdateListView();

} //--------------------------------------------------------------------------- void __fastcall TForm1::UpdateTreeView() 9 Z) t/ Z% C9 n& n, u{ TTreeNode *rNode,*mNode; TreeView1->Items->Clear(); ! V$ i* W5 l. J& A8 E' `rNode=TreeView1->Items->Add(TreeView1->Selected,"我的电脑"); rNode->ImageIndex=1; rNode->SelectedIndex=1; - V& Q, J8 f0 ?' a+ r& y: LmNode=TreeView1->Items->AddChild(rNode,"A:"); mNode->ImageIndex=2; mNode->SelectedIndex=2; ( y0 Z6 U. x: p: DAddDirectory("A:",mNode); ' B+ p" p7 l" wfor(int i=1;i<DriveComboBox1->Items->Count;i++) { mNode=TreeView1->Items->AddChild(rNode,AnsiString(char('B'+i))+":"); mNode->ImageIndex=3; " B$ b, ^4 Z V0 EmNode->SelectedIndex=3; 6 w9 @* Q8 o' f5 rAddDirectory(AnsiString(char('B'+i))+":",mNode); + ~4 [0 ~/ R, z2 h/ O C} } ! i% z1 M4 q. d3 {$ |1 [' h/ L" Z//------------------------------------------------------------------------ void TForm1::AddDirectory(AnsiString path,TTreeNode *fNode) { TSearchRec sr; 6 I8 B* Q- D2 `TTreeNode *mNode; if(FindFirst(path+"\\*.*" ,faDirectory,sr)==0) { if(sr.Attr==faDirectory) - z; G- z0 b1 Q" F! d. F0 Z{ if(sr.Name!="."&&sr.Name!="..") ! c5 \: \5 E- p4 h5 Q! N2 M6 d{ + G: y* j$ g9 e5 ?! dmNode=TreeView1->Items->AddChild(fNode,sr.Name); ( J2 b6 e- K! f3 h) qmNode->ImageIndex=0; ; H Q/ X x. s4 U/ ]* CmNode->SelectedIndex=4; ' t) w7 | V# l9 Y& B# P// AddDirectory(path+"\\"+sr.Name,mNode); } } } 5 z& A, y: q* Twhile(FindNext(sr)==0) { . z% C+ M. M5 V% @5 Dif(sr.Attr==faDirectory) 9 M H3 w% S! a' W' S, \' v{ ' J: ]! p3 O- }/ h4 kif(sr.Name!="."&&sr.Name!="..") { mNode=TreeView1->Items->AddChild(fNode,sr.Name); 8 V) r2 D& l1 j8 wmNode->ImageIndex=0; " r& h- i n, z, J- M+ {# C& A$ ^mNode->SelectedIndex=4; // AddDirectory(path+"\\"+sr.Name,mNode); } 2 a1 r2 Y, ]( @# ~) ~} 6 A) m+ A* k, S- _+ z5 Y} FindClose(sr); $ F. u0 v, Y, O2 j}

//--------------------------------------------------------------------

void __fastcall TForm1::TreeView1Changing(TObject *Sender, TTreeNode *Node, & i, H* k' u0 `& ]: K. xbool &AllowChange) { Screen->Cursor=crHourGlass; TSearchRec sr; 6 E5 @* }) |4 i* i3 ?4 ~* R: KTTreeNode *NodeTmp=Node; AnsiString DirName,DirTmp; 6 H# I! l0 h# aDirName=Node->Text; for(int i=Node->Level;i>1;i--) { 2 ]" D$ O6 }+ u. z( g% INodeTmp=NodeTmp->arent; 4 g) |5 h$ s2 q1 ^& tDirTmp=NodeTmp->Text; if(DirTmp.SubString(DirTmp.Length(),1)!="\\") ' Z U9 P" q! e0 ^DirTmp+="\\"; 1 @) T1 C! D J$ q+ h4 g: u% sDirName.Insert(DirTmp,0); } * N9 ]7 N( Q9 Aif(DirName.SubString(DirName.Length(),1)!="\\") DirName+="\\"; 4 m) s, ^4 ~- sfor(int j=0;j<Node->Count;j++) # ?1 I% l: h+ b+ T0 Y+ m7 \{ 8 N4 N$ |: w% Z. d3 T5 k+ L# }if(Node->Item[j]->Count==0); { & z( O, c \4 [1 g9 i* \2 Uif (FindFirst(DirName+Node->Item[j]->Text+"\\*.*", faAnyFile, sr) == 0) $ {4 [# v( }: o! c4 c8 K+ A C{ - O0 z3 f2 k0 `do { - d/ J# \/ N" R1 ]//Node->Item[j]->ImageIndex=5; //Node->Item[j]->SelectedIndex=4; if((sr.Attr&faDirectory)&&sr.Name!="."&&sr.Name!="..") 6 U5 B- X Y8 y{ Node->Item[j]->ImageIndex=0; / t. Z; N% H: t8 L" V: q4 lNode->Item[j]->SelectedIndex=4; ! {6 v5 x& S2 L) m' f- Y8 fTreeView1->Items->AddChild(Node->Item[j],sr.Name); } ( l$ B7 |( f+ a. ]; t* Z} while (FindNext(sr)==0); FindClose(sr); . u, b0 h/ B/ D1 B1 U, o} } } & {0 X0 b- E9 K) g0 O8 EScreen->Cursor=crDefault; }