TCommonDialog--TOpenDialog
DefaultExt属性
对应对象：TOpenDialog
声明： property DefaultExt:string;
功能：如果用户没有为文件编辑框中的文件名添加扩展名，那么可以通过DeffaultExt属
性来自动地指定扩展名。
如果用户将一个扩展名添加到用户正在打开或保存的文件时，则由DefaultExt属
性指定缺省的扩展名将被忽略。如果DefaultExt没有被设置，用户的文件名也没
有扩展名，那么将不使用扩展名。由于系统允许文件名包含有多个逗点，文件名
的扩展名被定义为在最后逗点后的字符串。一个文件This．is．my．textd的扩
展名是textd。
例子：
procedure TForm1.FileOpen(Sender:TObject);
begin
OpenDialog1.DefaultExt:=’RTF’;
OpenDialog1.Execure;
end;
FileEditStyle属性
对应对象：TOpenDialog
声明：TFileEditStyle＝(fsEdit,fsComboBox);
property FileEditStyle:TFileEditStyle;
功能：FileEditStyle属性决定了文件打开对话框的风格。
FileEditStyle属性是和较老的Delphi版本兼容。
FileName属性
对应对象：TOpenDialog
声明：TfileNAme=string;
property FileName:TfileName;
功能：FileName用来指定在File编辑框内出现的文件名。
用户在打开对话框之前，如果希望在文件编辑框内出现文件名，可以使FileName
属性设置为有效的文件名。当用户点击OK按钮关闭对话框之后，在文件
名编辑框内的文件名将被赋予给FileName属性。FileName属性指定的文件名除
包含文件名之外，还包括文件的全路径。如果在文件编辑框内的文件名并不存
在，那么当用户打开或保存它时将使用这个名来创建一个新的文件。
例子：
procedure TForm1.FileOpen(Sender:TObject);
begin
if OpenDialog1.Execure then
begin
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
//MyFileName is a private variable of type string
MyFileName:=OpenDialog1.FileName;
//…
end;
end;
Files属性
对应对象：TOpenDialog
声明：property Files:TStrings;
功能：Files属性包含了一个文件名的列表，可以被同时打开或保存。
Files属性在有效时间内是有效的，并且是只读的。如果选项属性的of AllowMultiSelect
被设置成为真，那么将允许用户同时打开或保存多个文件。如果对话框被
用户由点击OK按钮关闭，则文件名的列表将被赋给FileName属性。
例子：
procedure TForm1. sbGetFileClick (Sender: TObject);
begin
GetFilesDialog.Options:=[ofAllowMultiSelect];
GetFilesDialog.Filter:='All Files| *.*';
if GetFilesDialog.Execute then
RichEdit1.Lines:=GetFilesDialog.Files;
end;
Filter属性
对应对象：TOpenDialog
声明：property Filter: string;
功能：Filter属性用来指定一个文件名掩码的列表，并用来确定在文件打开和保存对话
框中哪些文件类型将被显示。
用户通过将一个文本字符串传递给Filter属性来创建它。被传递的字符串可以指
明一个单种类的文件类型或使用分隔号来声明多种文件类型。例如：
OpenDialogl.Filter:=’Text Files(*.txt)| *.TXT’ 和
OpenDialogl.Filter:=’Text Files(*.txt)| *.TXT;*.HTML’
同时可以使用多个过滤器，用’|’字符来把每一个过滤器分开，例如：
OpenDialogl.Filter:=’Text Files(*.txt)| Pascal files(*.pas)| *.PAS’
用户可以在运行时为对话框赋予过滤器，但在设计时如果使用过滤编辑器一次性
地赋予将是更简便的方法。
例子：
//Open a text markup file
var
Form1: TForm1;
FileName: TFileName;
implementation
{$R *.dfm}
procedure TForm1.sbGetFileClick(Sender: TObject);
begin
GetFilesDialog.Filter:='Markup Files(*.HTM,*.HTML,*.MHT)| *.HTM;*.HTML;*.MHT';
if GetFilesDialog.Execute then
begin
RichEdit1.Lines:=GetFilesDialog.Files;
FileName:=GetFilesDialog.FileName;
RichEdit1.SetFocus;
RichEdit1.Modified:=False;
end;
end;
FilterIndex属性
对应对象：TOpenDialog
声明：property FilterIndex: Integer;
功能：FilterIndex属性用来确定当打开对话框或保存对话框被打开时，在下拉式列表框
内的列表文件中将显示那种过滤器。
过滤器列表索引是从1开始的，所以对应的第一个过滤器是编号为l，第二个是
2，依此类推。在缺省时属性是1。
例子：
procedure TForm1.FileOpen(Sender: TObject);
begin
OpenDialog1.FilterIndex:=2;
if OpenDialog1.Execute then
//…
end;
HistoryList属性
对应对象：TOpenDialog
声明： Maintains a list of previously selected files.(Obsolete.)
property HistoryList:Tstrings;
功能：HistoryList属性保存了以前曾被选择过的文件列表。
HistoryList属性是对应较老版本Delphi的属性。
InitialDir属性
对应对象：TOpenDialog
声明：property InitialDir:String;
功能：InitialDir属性包含了一个字符串，它指出当一个对话框被打开时出现在对话框内
的目录。
如果用户没有指定InitialDir属性，那么对话框将打开可执行的目录或者打开在
前一次打开或保存对话框中最后指定的目录
例子：
procedure TForm1.FileOpen(Sender: TObject);
begin
OpeDialog1.InitialDir:=’C:/WINDOWS/’;
if OpeDialog1. Execute then
//…
end;
Option属性
对应对象：TOpenDialog
声明：TOpenOptions = set of TOpenOption;property Options: TopenOptions default[];
功能：Options属性决定了打开对话框操作的行为和显示。
对应打开对话框的有效选项值可见下表。
值
意 义
ofAllowMultiSelect
允许用户在对话框内选择多个文件。
ofCreatePrompt
如果用户在选择一个不存在的文件时，产生一个警告信息，询问是否要创建一个新的和指定的文件名相匹配的文件。
ofExtensionDifferent
运行时只要被选择的文件名存在，且扩展名不同于Defaul6xt，那么将出现这个标记。如果用户使用这个标记用来标记一个应用程序，记住要对它重新设置。
ofFileMustExist
如果使用者试图选择一个不存在的文件那么将产生一个错误信息。
ofHideReadOnly
从对话框之中删除Open As Read On1y检查框
ofNoChangeDir
在用户按击了OK按钮之后，将重新设置当前的路径为以前的目录，使用对话框时将忽略用户可能对目录的任何修改。
ofNoDereferenceLinks
不允许系统快捷方式的废弃。如果用户选择了一个快捷方式，将快捷方式本身的文件路径和文件名分配给FileNme，而不是把文件链接到快捷方式中。
ofNoLongNames
只显示8.3格式的文件名字符串。
ofNoNetworkButton
从文件选择对话框之中删除了Ne帅k按钮(用来打开一个映射网络驱动器对话框)。只有在OldStyleDialog标记为打开状态时才可以应用。
ofNoReadOnlyReturn
如果用户试图选择一个只读型的文件时，将产生一个错误信息。
ofNoTestFileCreate
废弃网络文件保护检查和拒绝磁盘驱动器的访问。只有在用户试图保存—个
文件在创造非修改的共享的网络路径内时有效。
ofNoValidate
废除检查无效的文件名的字符功能，允许用户选择文件名并保护了无效的字符。
ofOldStyleDialog
创建较老风格的文件选择对话框的形式。
ofOverwritePrompt
如果用户试图选择已经被使用了的文件时将产生一个警告信息，用来询问是否
覆盖现存的文件(使用TsaveDialog和TSavePictureDialog)。
ofPathMustExist
如果用户试图选择一个不存在的路径的文件时将发出一个错误信息。
ofReadOnly
对话框被打开时，选择Open As Read Only检查框，为缺省值。
ofShareAware
当共享冲突发生时忽略共享错误并且允许文件被选择。
ofShowHelp
在对话框内显示一个帮助按钮。
缺省时所有的标记是被关闭的。
例子：
procedure TForm1.FormCreate(Sender: TObject);
begin
OpenDialog1.Options:=[ofReadOnly,ofShareAware];
end;
Title属性
对应对象：TOpenDialog
声明：property Title:string;
功能：Title属性指出了对话框标题栏之中的文本内容。
Options属性
对应对象：TOpenDialog
声明：property Options:TOpenOptions default[];
功能：Options属性声明了保存对话框的显示行为和操作选项。
保存对话框的有效Options属性的选项值和打开对话框的值是一致的。
OptionsEx属性
对应对象：TOpenDialog
声明：TOpenOptionEx = (ofExNoPlacesBar);TOpenOptionsEx = set of TOpenOptionEx;
property OptionsEx: TOpenOptionsEx；
功能：Use the OptionsEx property to further customize the file open dialog beyond the
options covered by the Options property. The new options are:
值：ofExNoPlacesBar；意义：Prohibits a places bar (a bar which contains shortcuts to places
like the History folder and the Desktop) from appearing in the dialog.
Options属性
对应对象：TFindDialog
声明：property Options:TFindOptions;
功能：Options属性确定了发现对话框的操作选项和行为。
以下是有效的发现对话框的选项值列表。
值
意义
frDisableMatchCase
禁止(显示灰色)Match Case检查框的功能。
frDisableUpDown
禁止(显示灰色)Up和Down按钮的使用，这两个按钮用来决定搜寻的方向
frDisableWholeWord
禁止(显示灰色)Match Who1e Word检查框的功能。
frDown
当对话框出现，选择Down按钮为缺省值。如果frDown标记被关闭了，那么
当对话框被打开时将选择Up按钮。缺省时frDown是被打开的。
frFindNext
当用户按击Find Next按钮时这个标记被打开，并且当对话框被关闭时标记被关闭。
frHideMatchCase
从对话框中删除Match Case检查框。
frHideWholeWord
从对话框中删除Match Who1eWord检查框。
frHideUpDown
从对话框中删除Up和Down按钮。
frMatchCase
当用户选择了Match Case检查框时就打开这个标记，否则将关闭这个标记。
当对话框被打开时将选择对话框设为缺省值，在设计时设置为frMatchCase
frReplace
只应用到TReplaceDialog对话框，这个标记由系统来设置为说明应用程序将代
替当前发生的事件(只有当前的事件)，即将当前的Find Next字符串设为
Replace Text字符串。
frReplaceAll
只应用到TReplaceDialog对话框，这个标记由系统来设置为说明应用程序将所
有的发现的Find Text字符串设为Reptace Text字符串。
frShowHelp
在对话框中显示一个帮助按钮。
frWholeWord
当用户选择了Match Who1e word检查框时这个标记被打开。当对话框被打开
时选择检查框为缺省值，在设计时设置为frWholeWord。
缺省时所有的选项是被关闭的。
