DELPHI 中利用 TreeView 控件建立目录树 2000-06-26 00:00:00· －·中国计算机报社 p>Rainbow 的话：关于 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 ...
