關於TreeView的使用，還可以參看：聯合使用TreeView 組件
TreeView是一個顯示樹型結構的控件，通過它能夠方便地管理和顯示具有層次結構的信息，是Windows應用程序的基本控件之一。DELPHI雖然具有比較強大的文件管理功能，提供了多個用於文件管理的標准控件，如DriveComboBox、DirectoryListBox、FileListBox等，通過設置它們的屬性，使其建立起聯系，甚至不用編寫一行程序，我們就可以實現在不同的目錄之間進行切換，然而這樣的目錄切換只適用於進行文件的查找定位，而不能方便地進行目錄的浏覽，例如我們要從c:\windows目錄轉到c:\program files目錄，就必須返回到根目錄才能進行切換，而不能象Windows資源管理器那樣任意地在不同的目錄之間進行浏覽與切換。
要實現在不同目錄之間任意切換和浏覽，還是需要使用TreeView控件，以下程序就利用DELPHI的TreeView控件來建立目錄樹。
在該程序中采用的各部件以及界面設計如下圖所示：
各部件的主要屬性設置如下：
部件 屬性 屬性值 form name caption form1 ‘目錄浏覽’ drivecommbobox name visible drivecommbobox1 false filelistbox name visible filetype filelistbox1 false fddirectory imagelist name imagelist1 treeview name images
該程序利用DriveCommboBox控件來獲得系統具有的驅動器，並以此作為目錄樹的最上層，利用FileListBox控件，通過設置其Filetype屬性為fdDirectory，可以獲得所需的子目錄，在TreeView控件的OnExpanding事件中將得到的子目錄加到該控件的某一節點下。
整個程序的源代碼如下：
unit main;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, FileCtrl, ComCtrls, ImgList;
type
TForm1 = class(TForm)
DirTreeView: TTreeView;
FileListBox1: TFileListBox;
DriveComboBox1: TDriveComboBox;
ImageList1: TImageList;
procedure FormCreate(Sender: TObject);
procedure DirTreeViewExpanding(Sender: TObject; Node: TTreeNode;var AllowExpansion: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
FirstNode,DirNode : TTreeNode;
ItemCount,Index:integer;
Itemstr:string;
begin
ItemCount:= DriveComboBox1.Items.Count; //所有驅動器的個數
FirstNode := DirTreeView.Items.GetFirstNode;
for index := 0 to ItemCount -1 do
begin
ItemStr:= DriveComboBox1.Items[index];
ItemStr:= copy(ItemStr,1,pos(:,ItemStr)) ; //獲得驅動器的名稱（比如C/D）
DirNode := DirTreeView.Items.AddChild(FirstNode, ItemStr );
DirNode.HasChildren := true;
DirNode.ImageIndex := 0;
DirNode.SelectedIndex := 1;
end;
end;
//響應擴展事件
procedure TForm1.DirTreeViewExpanding(Sender: TObject; Node: TTreeNode;Var AllowExpansion: Boolean);
var
DirNode : TTreeNode;
ItemCount,Index,level,icount:integer;
Itemstr,strPath:string;
begin
if node.Count = 0 then
begin
icount:=0;
level:=node.Level ;
dirnode:=node;
strPath:=node.Text+\ ;
while level 0 do
begin
strPath:=dirnode.Parent.Text+\+strpath;
dirnode:=dirnode.parent;
level :=level -1;
end;
FileListBox1.Clear ;
FileListBox1.Directory := strpath;
ItemCount:= FileListBox1.Items.Count;
for index:=0 to ItemCount -1 do
begin
itemstr:=filelistbox1.items[index];
itemstr:= copy(ItemStr,2,pos(],ItemStr)-2) ;
if (itemstr〈〉.) and (itemstr 〈〉 ..) then
begin
DirNode := DirTreeView.Items.AddChild(Node,itemstr );
DirNode.HasChildren :=true;
DirNode.ImageIndex := 0;
DirNode.SelectedIndex := 1;
icount:=icount+1;
end;
if icount = 0 then
Node.HasChildren := false;
end;
end;
end;
end.
程序的運行效果如圖所示：我們可以展開目錄樹中的任何一個節點，並且可以在任意節點之間切換，就象我們在Windows資源管理器中所作的那樣，而不需要逐級回退之後才能進行切換。
