在程序运行期间调用各种公用对话框很简单,只需使用Execute方法即可。Dialogs类引入了抽象的Execute函数。
TOpenDialog——打开文件对话框组件,用它选择文件和浏览目录
TSaveDialog——保存文件对话框组件,用它类输入或选择文件名以及浏览目录
TFontDialog——字体设置对话框组件,用它可以允许用户选择字体进行设置
TColorDialog——颜色设置对话框组件,是一个通用的颜色选择工具
TOpenPictureDialog——打开图像对话框组件,比普通打开对话框多图像预览区域
TSavePictureDialog——保存图像对话框组件,可以对图像进行预览
TFindDialog——查找对话框组件,用于完成数据查找工作
TReplaceDialog——替换对话框组件,用它完成查找并替换这一操作
TPrintDialog——打印对话框组件,用来给打印进分配一个打印作业
TPrinterSetupDialog——打印机设置对话框组件,用来对打印机进行设置
文件选择型对话框组件
常用的对话框组件了,它包括了OpenDialog、SaveDialog、OpenPictureDialog和SavePictureDialog四种对话框组件,允许浏览、切换目录,并使用通配符选择一组文件.
主要属性如下:
Default——默认扩展名。当所选文件扩展名没有注册时,默认扩展名就会加在文件名末尾,不能超过三个字符,不要在前面加上“.”。
FileName——记录最后一次选取的文件完整路径(只用于OpenDialog)
Filter——对文件类型的过滤规则
FilterIndex——默认过滤规则序号。第一条序号为1,第二条为2,以此类推。
HelpContext——如果程序有联机帮助,该属性用来指定本对话框帮助位于帮助文件的位置。
InitialDir——对话框打开时会将初始路径作为当前目录。
Options——对话框的外观等一些选项
OptionsEx——更进一步定制对话框的选项
Title——对话框的标题
HistoryList——记录了打开文件的历史列表,是为兼容以前版本而保留的,不推荐使用。
Files——运行期才可见,以TStrings的形式记录了所有选定文件的文件名和完整路径。选定多个文件时,需要将Options属性中的ofAllowMultiSelect设置为True,并用“Files[i]”的形式得到每个文件名。
经常要用到定义文件类型的过滤规则, 用管道号(|)把描述和过滤器分开,例如:
OpenDialog1.Filter := '文本文件(*.txt)|*.txt|超文本文件(*.htm)|*.htm|脚本文件(*.asp)|*.asp|所有文件(*.*)|*.*';
可以不把OpenDialog组件放到窗体上,而通过在运行期间通过建立TOpenDialog类的实例,调用其Execute方法,代码如下:
procedure TForm1.Button4Click(Sender: TObject);
var
OpenDlg: TOpenDialog;
begin
OpenDlg := TOpenDialog.Create(Self);
if OpenDlg.Execute then
begin
{ 用户点击了OK,选择了文件}
Memo1.Lines.LoadFromFile(OpenDlg.FileName);
{ 做一些其它的操作}
end;
end;