第5章 对话框设计

这些对话框无须使用对话框组件，简 单地调用函数或过程就能实现。
6，指的是显示提示信息的 一些简单对话框。

这些对话框无须用户任何输入，只需 简单地确认或取消即可。

消息框的显示无须使用对话框组件， Delphi 用两个函数、两个过程用来显示消 息框：


PrintToFile：打印作业被输出到一个 文件而不是到打印机上。
6.6 “打印设置”和 “页面设置”对话框

“打印设置”对话框是用 TPrinterSetupDialog组件实现的。

“页面设置”对话框是用 TPageSetupDialog组件实现的。
6.7
“查找”对话框组件

[查找]对话框用于查找指定字符串， 是一种非模态对话框。

2．InputQuery函数： 用于显示带有一个编辑框的对话框，当 用户按[OK]按钮返回时，返回值为True， 编辑框中的输入内容被赋给Value字符串；

当用户按[Cancel]按钮返回时，返回 值为False，缺省字符串被赋给Value字符 串。
第6章
对话框设计
2009年4月2日 2012年4月12日
主要内容



6.1 6.2 6.3 6.4 6.5 6.6 6.7 6.8 6.9
“打开”对话框组件 “保存”对话框组件 “字体”对话框组件 “颜色”对话框组件 “打印”对话框组件 “打印设置” “查找”对话框组件 “替换”对话框组件 标准对话框

它的外观与一般的“打开”对话框很 相似，只是增加了一个预览区域。

当用户选择图像文件时，预览区域就 显示用户所选择的图像，并且显示该图像 的大小。

单击对话框上的[放大镜]按钮，可以 放大显示图像。

可以预览的图像格式有BMP、ICO、WMF 和EMF，如果是其他格式的图像，预览区域 将显示“(None)”。

TFontDialog组件有一组Options属性， 缺省时它们的取值均为False。
6.4
“颜色”对话框组件

[颜色]对话框用于设置选定对象的前 景色和背景色，是用TColorDialog组件实 现的。

6.5
“打印”对话框组件

“打印”对话框是用TPrintDialog组 件实现的。

为了方便用户，Delphi预定义了 FontDialog组件。
常用属性和事件： Device属性：用于设置从哪儿检索可用的 字体。

（可选项有fdScreen/屏幕、 fdPrinter/打印机、fdBoth/两者）。

OnApply事件：当OnApply事件被定义 后，[字体]对话框会出现[应用]按钮，当 用户按下[应用]按钮时将触发这个事件。

·Delphi 预定义的标准对话框，包括消息 框和输入框。

可用函数和过程调用的形式来显示这 些对话框。

·用户自己设计的对话框。

Delphi 的公共对话框组件都是从抽象的 TCommonDialog继承下来的，而 TCommonDialog又是从TComponent继承下来 的。因此，这些对话框组件都是非可视的。

它的特性、方法和事件与 TOpenPictureDialog组件完全相同。

它的外观与一般的“另存为”对话框 很相似，只是增加了一个预览区域。

图象的用法和格式同TOpenPictureDialog。
6.3
“字体”对话框组件

大多数文本编辑软件都提供用户使用 “字体”对话框，用于设置选定文本的字 体、字号、字形、字色等。

InitialDir属性：默认情况下，对话框打 开时，文件列表中显示的是当前目录的文 件。

可以设置这个属性指定另外一个目录。

Title属性：用于设置对话框的标题。

另外TOpenDialog组件有一组Options 属性，缺省时它们的取值均为False。

TOpenPictureDialog的直接上级是 TOpenDialog，它的特性、方法和事件与 TOpenDialog全相同。

用于显示一个带有[OK]按钮的消息框， 其中Msg为显示内容。
6.9.2
输入框

所谓输入框，指的是带有一个编辑框、 用于输入简单字符串信息的一些简单对话 框。

输入框的显示同样无须使用对话框组 件，Delphi提供了两个函数用于显示输入 框。

1．InputBox函数： 用于显示带有—个编辑框的对话框，当用 户按[OK]按钮返回时，返回值为编辑框中 的输入内容。

几乎所有的Windows应用程序都借助于 对话框和用户进行交流，对话框本质是一 种窗口，不但可以接受消息，还能移动和 关闭。

Delphi应用程序可使用三种对话框。

·由Delphi 自动提供的对话框组件。

如打开文件对话框、文件保存对话框、 字体对话框、颜色对话框、查找对话框和 替换对话框等。

在[查找]对话框中有一个[找下一个] 按钮，单击该按钮就可以开始对指定字符 串的查找。

这是通过调用FindDialog组件的 OnFind事件的响应过程来实现的。

6.8
“替换”对话框组件

为ReplaceDialog1添加OnFind事件， 事件响应过程为ReplaceDialog1Find。

FileName属性：指定一个文件名。在打开 对话框时，这个文件名出现在对话框的 “文件名”框中。

Filter属性：设置文件过滤器，让对话框 只列出特定类型的文件。

单击Filter属性右侧的省略号按钮，可打 开Filter Editor对话框，从中定义Filter 属性。

FilterIndex属性：如果有多个过滤器，这 个属性用于指定一个作为默认过滤器。

6.2
“保存”对话框组件

“保存”对话框组件的属性以及界面 和“打开”对话框几乎一样。

与[打开]对话框一样，[保存]对话框 也有一个带图像预览的“保存”对话框， 是用TSavePictureDialog元件实现的。

在保存图像文件时，可以在对话框中 预览图像。

TSavsPictureDialog的直接上级是 TOpenPictureDialog。
1．MessageDlg函数： function MessageDlg(Const Msg:String。 if MessageDlg('确定要删除吗？',mtConfirmation, [mbYes, mbNo],0) = mrYes then


2．ShowMessage过程： 用于显示一个带有[OK]按钮的消息框，其 中Msg为显示内容。


在设计期，把这些公共对话框组件加到 Form上后，看到的是这些对话框组件的图 标。 只有调用这些对话框的Execute( )方法， 才能在运行期看到真正的对话框。
6.1
“打开”对话框组件

“打开”对话框，是用来打开文件的对话 框，是用TOpenDialog组件实现的。

常用属性： DefaultExt属性：用于指定一个默认的扩 展名。

再为ReplaceDialog1添加OnReplace事 件，事件响应过程为 RePlaceDialog1Replace：

最后为Button8([替换]按钮)添加 onClick事件。
6.9
标准对话框

消息框和输入框是Delphi 预定义的又 一系列对话框，用于显示各种信息。

以及接收简单的用户输入，称为标准 对话框。

它能让用户选择使用哪台打印机、设 置打印机的属性、选择页的范围、设置打 印份数等。

“打印”组件的常用属性有： Collate：若该属性为True，对话框中 的“分页”复选框就被选中。

Copies：设置打印的份数。

FromPage、ToPage：设置打印范围的 起始页码和结束页码。