用TreeView浏览目录

韩冰

7 O, l, ?! _% p& L4 I) l$ Ivoid __fastcall TForm1::FormCreate(TObject *Sender) 9 T5 A; r& v, s! g _2 }; R{ ; A2 R8 Z' ?+ qCurrentDir=GetCurrentDir(); UpdateTreeView(); 4 k0 j4 i9 J0 ` C" {UpdateListView();

- V l. C& A2 C

} . x6 S) n: k7 B: `2 M% b9 u$ `//--------------------------------------------------------------------------- void __fastcall TForm1::UpdateTreeView() ( T2 J* N; }& u0 @% z{ " A$ _, C& H& a' i; y$ wTTreeNode *rNode,*mNode; # M1 s% J, V# WTreeView1->Items->Clear(); rNode=TreeView1->Items->Add(TreeView1->Selected,"我的电脑"); rNode->ImageIndex=1; rNode->SelectedIndex=1; mNode=TreeView1->Items->AddChild(rNode,"A:"); x, j; p9 n1 A" A& r6 e6 }6 }3 _mNode->ImageIndex=2; $ D% i$ ^0 h3 b ~& E5 K8 h7 ~% FmNode->SelectedIndex=2; AddDirectory("A:",mNode); . f; g5 d/ C; J1 L) x$ T1 g3 ofor(int i=1;i<DriveComboBox1->Items->Count;i++) , J: ?) J- {" h{ # w! q v; |7 z# |: rmNode=TreeView1->Items->AddChild(rNode,AnsiString(char('B'+i))+":"); ( c% y* i# p8 y L' z4 ~' b! RmNode->ImageIndex=3; mNode->SelectedIndex=3; ' I) \$ \' g2 d, Q+ ^AddDirectory(AnsiString(char('B'+i))+":",mNode); } ) n. u- f# B9 T! m8 G: m} //------------------------------------------------------------------------ 3 f6 d7 ^7 ?4 W4 O( Y$ m4 lvoid TForm1::AddDirectory(AnsiString path,TTreeNode *fNode) & \2 d3 F7 S" a8 ~{ % N, e3 h! x4 e V% H: ~+ I! A2 \TSearchRec sr; 6 L$ L {+ ] N- Q8 JTTreeNode *mNode; 6 p1 Q+ M5 S3 G' Rif(FindFirst(path+"\\*.*" ,faDirectory,sr)==0) { if(sr.Attr==faDirectory) { , v" K, }' }/ t+ Jif(sr.Name!="."&&sr.Name!="..") { A3 R6 D* n: C4 N s x0 R% jmNode=TreeView1->Items->AddChild(fNode,sr.Name); . x; m, T0 K, ^: @7 UmNode->ImageIndex=0; mNode->SelectedIndex=4; 1 X3 {- E" ]4 f& ^( j+ |// AddDirectory(path+"\\"+sr.Name,mNode); ' |" P/ M" F, k' W} 0 c* L6 }* U0 o$ G* y/ k0 i3 Z} } while(FindNext(sr)==0) , `7 o# K' @3 G$ d& A$ K0 }{ if(sr.Attr==faDirectory) ( |% c2 V4 a8 ^/ R6 h) ~{ + A6 _! Q, z5 s% wif(sr.Name!="."&&sr.Name!="..") & t1 A* v4 \. Z, {{ ; h9 p2 U. i8 d3 ?- Q7 ?mNode=TreeView1->Items->AddChild(fNode,sr.Name); mNode->ImageIndex=0; mNode->SelectedIndex=4; # g3 O0 n3 M! n// AddDirectory(path+"\\"+sr.Name,mNode); % k8 x9 T9 S2 Q- T3 G} ( z+ z$ m6 Z K} } 0 Z' a7 q L; EFindClose(sr); }

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

; r$ ]1 C. Z* d( a* L- [6 `

void __fastcall TForm1::TreeView1Changing(TObject *Sender, TTreeNode *Node, % I/ }, O+ W2 Z3 y4 Pbool &AllowChange) 9 T- ?2 F+ j+ O- Y{ Screen->Cursor=crHourGlass; ' _ |5 e" s' f! v5 YTSearchRec sr; 8 J$ m) d- J3 r- C- k/ xTTreeNode *NodeTmp=Node; ! }& K- F& N7 V9 d p) R0 @6 eAnsiString DirName,DirTmp; , W5 Q9 B5 p9 B) A. _7 ]( |1 [1 }DirName=Node->Text; 3 T" q/ V* ?$ G" u5 Kfor(int i=Node->Level;i>1;i--) { NodeTmp=NodeTmp->arent; DirTmp=NodeTmp->Text; / a4 _$ z" `1 O) `: f, Z, F: j- Nif(DirTmp.SubString(DirTmp.Length(),1)!="\\") 8 s" u8 I9 i* q" L* F4 jDirTmp+="\\"; DirName.Insert(DirTmp,0); } if(DirName.SubString(DirName.Length(),1)!="\\") 0 M/ ]; J/ x% Y' o) _: TDirName+="\\"; for(int j=0;j<Node->Count;j++) 6 K) F) w- Q: L- h' {6 l{ 0 Z; m4 j% ?4 n& oif(Node->Item[j]->Count==0); / |% H; z( m4 X. t& L/ w `3 ~{ " S5 P- y3 R: U5 |) f2 _( aif (FindFirst(DirName+Node->Item[j]->Text+"\\*.*", faAnyFile, sr) == 0) - N2 e( y2 [" i* ?) R" v; F{ ( @( x6 |! ^. n: g% Qdo { //Node->Item[j]->ImageIndex=5; //Node->Item[j]->SelectedIndex=4; 5 o0 o+ n) o1 x7 e, Qif((sr.Attr&faDirectory)&&sr.Name!="."&&sr.Name!="..") { # N; [( Q9 s& w8 r) F! HNode->Item[j]->ImageIndex=0; & B" m8 M' n8 n' ~+ V0 ANode->Item[j]->SelectedIndex=4; # Y8 I4 o' \, N' o% I* ~TreeView1->Items->AddChild(Node->Item[j],sr.Name); } } while (FindNext(sr)==0); 5 q. m- Z% z. z# ?" \FindClose(sr); } # n( U9 v* w3 J* M4 n} - U$ N, S* x/ V s$ ]& D) G9 m} / u4 F. e# `$ f3 x2 n. o1 AScreen->Cursor=crDefault; }