Delphi的打开文件对话框-TOpenDialog

 

1．TOpenDialog组件的典型用法

“打开”对话框是用TOpenDialog组件实现的，TOpenDialog组件是非可视组件。 
Filter属性用于设置文件过滤器，让对话框只列出特定类型的文件。在设计时可以单击Filter属性旁的省略号“.”按钮，打开“Filter.Editor”对话框，在“Filter.Name”栏键入关于过滤器的简短说明，在“Filter”栏键入通配符，在设计期，把“打开”对话框组件加到窗体上，看到的是TOpenDialog组件的图标，只有调用对话框的Execute方法，才能在运行期看到真正的对话框。

2．TOpenDialog组件的重要属性

DefaultExt-------------此属性用于指定一个默认的扩展名 
FileName---------------此属性用于指定一个文件名 
Files------------------通过此属性可以访问多个文件 
Filter-----------------此属性用于设置文件过滤器 
FilterIndex------------此属性用于指定哪个过滤器是默认过滤器 
InitialDir-------------设置此属性可以指定另外一个目录 
Options----------------此属性用于设置“打开”对话框的选项 
Title------------------此属性用于设置对话框的标题

（1）DefaultExt属性 
此属性用于指定一个默认的扩展名。如果用户在对话框中选择的文件没有带扩展名，就用这个属性作为文件的扩展名，如果不需要默认扩展名，应当把这个属性设为空。

（2）FileName属性 
FileName属性可以指定一个文件名。在打开对话框时，这个文件名出现在对话框的“文件名”框中。在对话框中，可以指定其他文件名，如果单击“OK”按钮，对话框将关闭，并且FileName属性变成用户新指定的文件名，包括文件的路径和扩展名。FileName属性也可以指定一个不存在的文件名，表示将打开一个新文件。

（3）Files属性 
如果Options属性包含ofAllowMultiSelect元素，表示允许一次选择多个文件，这些文件可以通过Files属性访问。Files属性是一个TStrings对象。

（4）Filter属性
此属性用于设置文件过滤器，让对话框只列出特定类型的文件。在设计时，可以单击 Filter属性旁的“...”按钮，打开“Filter Editor”对话框，在“Filter Name”栏键入关于过滤器的简短说明，在“Filter”栏键入通配符，例如通配符“*.txt”表示让对话框只显示扩展名为.txt的文件。当然，用户可以在“打开”对话框的“文件名”框内直接输入一个扩展名不为 .txt文件名的文件。同时，Filter属性可以设置多个过滤器，这些过滤器将显示在“打开”对话框的“文件类型”组合框内。

（5）FilterIndex属性
如果有多个过滤器，这个属性用于指定哪个过滤器是默认过滤器。默认过滤器将显示在“打开”对话框的“文件类型”组合框的编辑框中。注意，过滤器的序号从1开始。

（6）InitialDir属性
此属性用于设置打开对话框第1次打开时的默认打开目录。例如要将打开对话框的默认打开目录设置为C盘根目录，就可以将InitialDir属性设置为“C:\”。

（7）Options属性
此属性用于设置“打开”对话框的选项。它设定了如下16个用户可选值。 
. ofAllowMultiSelect：用户可以一次选择多个文件。 
. ofCreatePrompt：如果用户输入的文件名是不存在的，当用户单击“OK”按钮时，将显示一个提示框，询问要不要建立这个文件。
. ofExtensionDifferent：如果用户所选文件的扩展名与DefaultExt属性设置的默认扩展名不同，就包含这个元素。 
. ofFileMustExist：用户输入的文件名必须是已存在的。
. ofHideReadOnly：对话框中不显示“以只读方式打开”复选框。
. ofNoChangeDir：即使用户在对话框中选择了其他目录，但对程序来说，当前目录总是对话框第一次打开时的目录。
. ofNoDereferenceLinks：如果用户选择的是快捷方式文件（.lnk），FileName属性是快捷方式文件本身，而不是快捷文件指向的文件。
. ofNoLongNames：不允许长文件名。
. ofNoReadOnlyReturn：不允许用户选择只读的文件，否则将显示一个警告框。
. ofNoTestFileCreate：保存文件时不进行写保护、磁盘满、驱动器门打开等检查。
. ofNoValidate：不对文件名中的字符进行合法性检查。
. ofOverwritePrompt：用于“另存为”对话框中，如果用户指定的文件名已存在，将显示一个警告框用来让用户选择是否要覆盖已有的文件。 
. ofPathMustExist：用户输入的路径必须是已经存在的，否则将显示警告。 
. ofReadOnly：选中“以只读方式打开”复选框。 
. ofShareAware：对话框不理会所有的共享错误。 
. ofShowHelp：对话框中将显示“帮助”按钮。

（8）Title属性
此属性用于设置对话框显示时的窗口标题。例如大多数据库程序都有还原数据库功能，其打开对话框的标题就可以设置为“打开还原文件”。

3．TOpenDialog组件的重要事件

OnCanClose----------当用户试图关闭对话框时将触发这个事件 
OnFolderChange------当用户在对话框中改变、扩展或折叠了一个目录（也叫文件夹），将触发该事件
OnSelectionChange---当用户打开对话框、选择某个目录或文件、选择另一个过滤器、建立一个新的目录时将触
发这个事件 
OnShow--------------当对话框调用Execute方法、并且对话框还未显示时触发此事件 
OnTypeChange--------当用户在对话框中选择了另一个过滤器时，将发生这个事件

（1）OnCanClose事件
当用户试图关闭对话框时将触发这个事件。这样就有机会对用户输入的文件名进行检查。如果文件名不符合要求，就把CanClose参数设为False，表示不允许关闭对话框。

（2）OnFolderChange事件
当用户在对话框中改变、扩展或折叠了一个目录（文件夹），将触发该事件。在程序中可以利用此事件获取用户浏览过的目录。

（3）OnSelectionChange事件
当用户打开对话框、选择某个目录或文件、选择另一个过滤器或建立一个新的目录时将触发这个事件。 
OnSelectionChange事件与OnFolderChange事件相比触发的概率比较高。

（4）OnTypeChange事件
当用户在对话框中选择了另一个过滤器时，将触发这个事件。在此事件中结合FilterIndex属性的使用，可以获取当前对话。

4．TOpenDialog组件的重要方法

TOpenDialog组件最重要的方法就是Execute方法。此方法能够显示对话框，以供用户设置文件路径及文件名。其使用方法如下：
OpenDialog1.Execute;