用TreeView浏览目录

韩冰

8 N" u, m3 @ O5 W( [void __fastcall TForm1::FormCreate(TObject *Sender) % P6 X w+ Y; T7 t3 z{ : ] b! x6 `! s h/ \" f+ L7 p2 _CurrentDir=GetCurrentDir(); + q& g* H# [3 \, VUpdateTreeView(); UpdateListView();

} //--------------------------------------------------------------------------- : e1 k4 ~4 W" z7 a$ X: B8 lvoid __fastcall TForm1::UpdateTreeView() { TTreeNode *rNode,*mNode; # @7 q( D- q4 k( CTreeView1->Items->Clear(); rNode=TreeView1->Items->Add(TreeView1->Selected,"我的电脑"); 1 X& B: r3 [! g* o( q9 RrNode->ImageIndex=1; 4 S( S3 `8 E, Q: Q5 KrNode->SelectedIndex=1; ' H1 `& j) R+ a1 S$ TmNode=TreeView1->Items->AddChild(rNode,"A:"); ) N1 @) M6 g1 V7 E9 l) lmNode->ImageIndex=2; mNode->SelectedIndex=2; 0 ?) j4 q. j* I7 c; e, X" w: n: h( m+ WAddDirectory("A:",mNode); for(int i=1;i<DriveComboBox1->Items->Count;i++) - c( B- h" N8 Z. S; B8 `1 ?{ mNode=TreeView1->Items->AddChild(rNode,AnsiString(char('B'+i))+":"); mNode->ImageIndex=3; mNode->SelectedIndex=3; AddDirectory(AnsiString(char('B'+i))+":",mNode); " y% T# k) x# X0 n} } //------------------------------------------------------------------------ 5 ^% C( G, d5 \" ?5 a2 m4 A) kvoid TForm1::AddDirectory(AnsiString path,TTreeNode *fNode) { TSearchRec sr; 0 G$ k* r* v6 _3 ]( oTTreeNode *mNode; , e+ Z* J; i$ @if(FindFirst(path+"\\*.*" ,faDirectory,sr)==0) 3 ?& _+ v' n+ a7 v1 ~0 S{ & o) R7 u( N# Kif(sr.Attr==faDirectory) { ( ^- L' Q) o& g9 Vif(sr.Name!="."&&sr.Name!="..") $ e8 _4 P0 |5 A* a5 }0 [{ mNode=TreeView1->Items->AddChild(fNode,sr.Name); " x0 O5 R% ] x/ MmNode->ImageIndex=0; mNode->SelectedIndex=4; // AddDirectory(path+"\\"+sr.Name,mNode); } 9 x( I# H1 `& @# R6 w- U0 W} & X- f7 x! \+ w6 q+ {* V} ' H2 e+ q8 w1 i8 awhile(FindNext(sr)==0) { . B. D3 S* R; j! E9 x( R! }! Wif(sr.Attr==faDirectory) { if(sr.Name!="."&&sr.Name!="..") { 6 m N. S9 t9 |! @# H7 [( v/ xmNode=TreeView1->Items->AddChild(fNode,sr.Name); 5 ~: L# O2 i% D7 X% C" pmNode->ImageIndex=0; # v- W) V8 w% [2 T6 l& dmNode->SelectedIndex=4; / v/ S; q0 n+ e- Q" f% [// AddDirectory(path+"\\"+sr.Name,mNode); 9 `* \8 u7 T5 p8 b# R; n} ) `) \9 _( _% J ^5 O% F+ _} $ A# s! p! H" g( ?" e% Q& a} " q+ u0 {: K* P2 L9 q5 N$ yFindClose(sr); 1 [/ o) I+ M8 p2 @. K p}

9 {1 ~, U6 E& N) Y

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

void __fastcall TForm1::TreeView1Changing(TObject *Sender, TTreeNode *Node, bool &AllowChange) 6 o' z3 s t) F; i2 k' q7 H8 _* O, [8 B{ " d2 h* K6 _7 s$ k; o+ WScreen->Cursor=crHourGlass; " q1 l' x0 d- q2 ?- F! eTSearchRec sr; TTreeNode *NodeTmp=Node; AnsiString DirName,DirTmp; # x, L9 ]3 V- R: ^' q! t4 Z" uDirName=Node->Text; for(int i=Node->Level;i>1;i--) ! {# _" g1 k7 @{ ) I2 ?7 x9 V' m& f8 P) Q2 |NodeTmp=NodeTmp->arent; DirTmp=NodeTmp->Text; : |1 b- l& n/ [9 wif(DirTmp.SubString(DirTmp.Length(),1)!="\\") " @5 Y; l9 V1 x' o$ d5 QDirTmp+="\\"; * i: i1 B6 M# z: V' \4 mDirName.Insert(DirTmp,0); $ j8 c4 |& z6 B/ z} if(DirName.SubString(DirName.Length(),1)!="\\") # d. }' P h' XDirName+="\\"; for(int j=0;j<Node->Count;j++) * A8 z0 ?, h! k. X, a{ if(Node->Item[j]->Count==0); 7 u2 r! s: C/ Z# `{ 6 X2 K2 L( B2 s- k) H8 ?, a# j$ gif (FindFirst(DirName+Node->Item[j]->Text+"\\*.*", faAnyFile, sr) == 0) / D4 s8 |0 n! \* s{ 2 T5 |+ T* Z# o1 _do { //Node->Item[j]->ImageIndex=5; //Node->Item[j]->SelectedIndex=4; 1 Q/ `" W- `8 mif((sr.Attr&faDirectory)&&sr.Name!="."&&sr.Name!="..") 1 C q- t6 j2 t9 i" B- W7 j6 J+ A, V{ 7 ?- i m% y7 W, z+ iNode->Item[j]->ImageIndex=0; Node->Item[j]->SelectedIndex=4; ' ]( D) Q# q" s, r" D; [TreeView1->Items->AddChild(Node->Item[j],sr.Name); D/ i* G! Z8 W' U* {6 V# _' w+ v} 1 t3 X3 x. u0 M4 c7 _9 p. t, h N. n} 6 }2 A, V6 `4 owhile (FindNext(sr)==0); 1 s+ U* F) X/ b0 \7 C' ~8 eFindClose(sr); / A2 q ^& Y+ j& g; z) I5 s3 \} } } - h3 a8 J6 S: X& T5 @Screen->Cursor=crDefault; % i- L8 m5 R6 [. j4 c) r# n3 m}