在程序运行期间调用各种公用对话框很简单，只需使用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;
945
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
