delphi中TreeView控件使用分析和总结.docxVIP

DELPHI 中利用 TreeView 控件建立目录树 2000-06-26 00:00:00· －·中国计算机报社 pRainbow 的话：关于 TreeView 的使用，还可以参看：联合使用 TreeView 组件 TreeView 是一个显示树型结构的控件，通过它能够方便地管理和显示具有层次结构的信息，是 Windows 应用程序的基本控件之一。DELPHI 虽然具有比较强大的文件管理功能，提供了多个用于文件管理的标准控件，如 DriveComboBox、DirectoryListBox、FileListBox 等，通过设置它们的属性，使其建立起联系，甚至不用编写一行程序，我们就可以实现在不同的目录之间进行切换，然而这样的目录切换只适用于进行文件的查找定位，而不能方便地进行目录的浏览，例如我们要从 c:\windows 目录转到 c:\program files 目录，就必须返回到根目录才能进行切换，而不能象Windows 资源管理器那样任意地在不同的目录之间进行浏览与切换。 要实现在不同目录之间任意切换和浏览，还是需要使用TreeView 控件，以下程序就利用 DELPHI 的 TreeView 控件来建立目录树。 在该程序中采用的各部件以及界面设计如下图所示： 各部件的主要属性设置如下： 部件 属性 属性值 name caption form1 ‘目录浏览’ name drivecommbobox1 formdrivecommboboxvisiblefalsefilelistboxnamevisible filetypefilelistbox1false fddirectoryimagelistnameimagelist1treeviewnameimages该程序利用 form drivecommbobox visible false filelistbox name visible filetype filelistbox1 false fddirectory imagelist name imagelist1 treeview name images 整个程序的源代码如下： 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