用TreeView浏览目录

韩冰

void __fastcall TForm1::FormCreate(TObject *Sender) 9 A5 ]5 x* j3 C( X+ k7 _0 c; q{ 8 {! k# A& `* ]1 [7 l( B! tCurrentDir=GetCurrentDir(); UpdateTreeView(); 9 t, N" d3 p; P0 j- W$ @: _UpdateListView();

} ! b0 O5 M! g6 ^5 Q( q//--------------------------------------------------------------------------- 9 T3 e5 G" D- `- P/ avoid __fastcall TForm1::UpdateTreeView() % j7 _4 `3 P# }: T0 {1 o# e" e{ ; @, e' b* U& n( d) ~TTreeNode *rNode,*mNode; # w4 }# t& N% A* L3 {TreeView1->Items->Clear(); + k( R% P! n# h; p8 R' BrNode=TreeView1->Items->Add(TreeView1->Selected,"我的电脑"); ; E- w- R% |' _+ [. i2 e& ErNode->ImageIndex=1; rNode->SelectedIndex=1; mNode=TreeView1->Items->AddChild(rNode,"A:"); ( t9 p. ]. G, z, S/ S8 C' {/ |mNode->ImageIndex=2; mNode->SelectedIndex=2; . h) `7 }1 a# y3 k7 UAddDirectory("A:",mNode); for(int i=1;i<DriveComboBox1->Items->Count;i++) + P3 H6 U- l/ }1 S" E& x: m0 C{ ' P2 P! D$ A, T+ X1 OmNode=TreeView1->Items->AddChild(rNode,AnsiString(char('B'+i))+":"); mNode->ImageIndex=3; : M0 X8 u& K; `2 n: d' GmNode->SelectedIndex=3; AddDirectory(AnsiString(char('B'+i))+":",mNode); * E) V5 h. a2 G2 N$ W( \} * {' |' S. d. n: ]. I! W- O} //------------------------------------------------------------------------ void TForm1::AddDirectory(AnsiString path,TTreeNode *fNode) + a# Y" u( u0 X7 a2 u1 P2 Z{ TSearchRec sr; TTreeNode *mNode; 6 R9 Y# X+ p" R2 _0 }if(FindFirst(path+"\\*.*" ,faDirectory,sr)==0) { if(sr.Attr==faDirectory) : @1 L5 W6 l5 ~1 t{ if(sr.Name!="."&&sr.Name!="..") 9 w7 y) q0 n8 R5 }{ mNode=TreeView1->Items->AddChild(fNode,sr.Name); ( x4 u+ S* _$ M, x7 _mNode->ImageIndex=0; , C3 J6 q2 i& a2 p, |" N; kmNode->SelectedIndex=4; ; S( j8 n c6 q4 X// AddDirectory(path+"\\"+sr.Name,mNode); } ) m( o2 i1 `# p' b( [} ! S/ r% o; o) P( E" R} 0 C* I) e% D. ewhile(FindNext(sr)==0) { , `- [! C3 l5 ?0 o. A* {if(sr.Attr==faDirectory) 4 o" I+ }$ @. m' N) ^{ if(sr.Name!="."&&sr.Name!="..") { 1 x! r6 X: L- gmNode=TreeView1->Items->AddChild(fNode,sr.Name); mNode->ImageIndex=0; " y! E; P2 o, E4 B: F' a# CmNode->SelectedIndex=4; // AddDirectory(path+"\\"+sr.Name,mNode); } 0 _. E8 a F, `6 L} 6 J; ]4 d; ~0 m$ Y5 I} FindClose(sr); 0 y3 Y% k3 X8 t1 w& D}

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

void __fastcall TForm1::TreeView1Changing(TObject *Sender, TTreeNode *Node, bool &AllowChange) { 2 H# i, B% q6 l; M* e$ q4 YScreen->Cursor=crHourGlass; TSearchRec sr; 2 w, t/ L1 w! E( e: @TTreeNode *NodeTmp=Node; 9 A$ E, Y9 \* b) N* u* oAnsiString DirName,DirTmp; DirName=Node->Text; for(int i=Node->Level;i>1;i--) ' R4 B% @7 j, l" B7 S/ R S{ NodeTmp=NodeTmp->arent; % W7 z& L. j0 Q$ P6 ^4 U7 LDirTmp=NodeTmp->Text; if(DirTmp.SubString(DirTmp.Length(),1)!="\\") DirTmp+="\\"; ; a/ |. v4 |/ W, M6 j& p8 \DirName.Insert(DirTmp,0); 2 L/ N; A0 o3 T" u& v$ L+ m} ; h+ R: ~4 E" N. i# G+ Aif(DirName.SubString(DirName.Length(),1)!="\\") . t v* A9 i5 U& E; u% DDirName+="\\"; : l& T; x( R/ ~% t3 f$ Dfor(int j=0;j<Node->Count;j++) { if(Node->Item[j]->Count==0); ! t/ ]4 m* m- D/ J; i2 @ g{ 9 a) z( I* H) cif (FindFirst(DirName+Node->Item[j]->Text+"\\*.*", faAnyFile, sr) == 0) % z( O) Y5 u$ F; c5 L" U{ ' L2 Z, U( C. {0 tdo { //Node->Item[j]->ImageIndex=5; % O& z5 Y) Z: V5 W3 A }. r//Node->Item[j]->SelectedIndex=4; & _- h, ~1 l6 bif((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); H7 N) f6 @, [8 ^} " u; E/ I# T% a* C9 T9 I6 I7 y( S} 4 m2 N( o: G1 N8 B' A/ r4 p0 X" V} Screen->Cursor=crDefault; , t5 ?' H( I/ t}