Windows资源管理器是您在Windows操作系统中用来浏览文件和文件夹的工具。您可以使用Delphi创建类似的结构，以便在程序的用户界面中填充相同的内容。

常用对话框在Delphi中用于在应用程序中打开和保存文件。如果您想使用定制的文件管理器和目录浏览对话框，您必须处理文件系统Delphi组件。

Win 3.1 VCL调色板组包括几个组件，允许您构建自己的自定义“文件打开”或“文件保存”对话框：TFileListBox、TDirectoryListBox、TDriveComboBox和TFilterComboBox。

导航文件

文件系统组件允许我们选择驱动器，查看磁盘的分层目录结构，以及查看给定目录中文件的名称。所有文件系统组件都是为协同工作而设计的。

例如，您的代码检查用户对DriveComboBox所做的操作，然后将此信息传递给DirectoryListBox。然后，DirectoryListBox中的更改被传递到FileListBox，用户可以在其中选择所需的文件。

设计对话框窗体

启动一个新的Delphi应用程序，并选择组件调色板的Win 3.1选项卡。然后执行以下操作：

• 在表单上放置一个TFileListBox、TDirectoryListBox、TDriveComboBox和TFilterComboBox组件，保留其所有默认名称
• 添加一个TEdit（名为“FileNameEdit”）和一个TLabel（称为“DirLabel”）。
• 包括一些带有标题的标签，如“文件名”、“目录”、“类型文件列表”和“驱动器”

要在DirLabel组件标题中将当前选定的路径显示为字符串，请将标签的名称指定给DirectoryListBox的DirLabel属性。

如果要在编辑框（FileNameEdit）中显示选定的文件名，必须将编辑对象的名称（FileNameEdit）指定给FileListBox的FileEdit属性。

更多的代码行

当表单上有所有文件系统组件时，只需设置DirectoryListBox.Drive属性和FileListBox.Directory属性，组件就可以通信并显示用户希望看到的内容。

例如，当用户选择新驱动器时，Delphi会激活DriveComboBox OnChange事件处理程序。让它看起来像这样：

procedure TForm1.DriveComboBox1Change(Sender: TObject) ;beginDirectoryListBox1.Drive := DriveComboBox1.Drive;end;

此代码通过激活其OnChange事件处理程序来更改DirectoryListBox中的显示：

procedure TForm1.DirectoryListBox1Change(Sender: TObject) ;beginFileListBox1.Directory := DirectoryListBox1.Directory;end;

要查看用户选择的文件，需要使用FileListBox的OnDblClick事件：

procedure TForm1.FileListBox1DblClick(Sender: TObject) ;beginShowmessage('Selected: '+ FileListBox1.FileName) ;end;

请记住，Windows惯例是双击选择文件，而不是单击一次。使用FileListBox时，这一点很重要，因为使用箭头键在FileListBox中移动会调用您编写的任何OnClick处理程序。

过滤显示器

使用FilterComboBox控制文件列表框中显示的文件类型。将FilterComboBox的FileList属性设置为FileListBox的名称后，将Filter属性设置为要显示的文件类型。

下面是一个示例过滤器：

FilterComboBox1.Filter := 'All files (*.*)|*.* | Project files (*.dpr)|*.dpr | Pascal units (*.pas)|*.pas';

提示

在运行时设置DirectoryListBox.Drive属性和FileListBox.Directory属性（在以前编写的OnChange事件处理程序中）也可以在设计时完成。通过设置以下属性（从对象检查器），可以在设计时完成此类连接：

DriveComboBox1.DirList := DirectoryListBox1DirectoryListBox1.FileList := FileListBox1

如果FileListBox的MultiSelect属性为True，则用户可以在其中选择多个文件。下面的代码演示如何在FileListBox中创建多个选择的列表，并在SimpleListBox（一些“普通”ListBox控件）中显示它。

var k: integer;...with FileListBox1 doif SelCount > 0 thenfor k:=0 to Items.Count-1 doif Selected[k] thenSimpleListBox.Items.Add(Items[k]) ;

若要显示未使用省略号缩短的完整路径名，请不要将标签对象名指定给DirectoryListBox的DirLabel属性。相反，在表单中插入标签，并在DirectoryListBox的OnChange事件中将其标题属性设置为DirectoryListBox.Directory属性。