《Delphi程序设计教程 教学课件 ppt 作者 吕新平 冯祖洪 张强华 第八章》由会员分享，可在线阅读，更多相关《Delphi程序设计教程 教学课件 ppt 作者 吕新平 冯祖洪 张强华 第八章（31页珍藏版）》请在金锄头文库上搜索。
1、第8章 各种对话框的制作,8.1 定制对话框 8.2 打开对话框组件（OpenDialog） 8.3 保存对话框组件（SaveDialog） 8.4 字体对话框组件（FontDialog） 8.5 颜色对话框组件(ColorDialog) 8.6 打印对话框组件（PrintDialog） 8.7 打印机设置对话框组件（PrinterSetupDialog） 8.8 查找对话框组件（FindDialog） 8.9 替换对话框组件（ReplaceDialog）,退出,8.1 定制对话框,8.1.1 对话框的分类 1. 模式对话框 在打开对话框之后，必须回答对话框的提问，然后才能进行其它的操作。也就
2、是使用“确定”或“取消”按钮关闭对话框之前，不能对程序的其它部分进行操作。 Windows中的大部分对话框都属于模式对话框，如打开对话框、保存对话框等。,2. 无模式对话框 在打开对话框之后，用户可以继续进行其它的操作，而不必首先响应对话框。 Windows中的查找、替换对话框属于无模式对话框。 8.1.2 对话框组件 Dialog页标签中包含了创建标准的Windows公共对话框的组件。,8.2 打开对话框组件（OpenDialog）,8.2.1 打开对话框组件的属性 1. DefaultExt属性 若用户在文件名中没有包含后缀，使用DefaultExt属性可以将后缀自动地添加到文件名编辑框的
3、文件名中。若在文件名中指定后缀，则忽略DefaultExt属性。若DefaultExt属性的值为空，则不添加后缀。,2. FileName属性 FileName属性确定当出现打开文件对话框时，出现在文件名编辑框中的文件名。用户可选定这一文件名或指定其它的文件名，在用户指定文件名并选择确定按钮后，用户选定的文件名保存在FileName属性中。 FileName属性可以为在当前目录中不存在的文件，也就是允许用户打开新的文件。而在保存文件对话框中，用户可以保存以前没有保存过的文件。,3. Filter属性 Filter属性允许用户筛选（用筛选字符串）出现在文件名列表中的文件。改变Filter属性的值
4、可以开关筛选功能。 筛选字符串的语法与SQL语句中WHERE子句的语法是类似的。 Filter Editor对话框如图8-1所示。,在Filter Editor对话框中的筛选名中输入的内容显示在打开文件对话框的文件类型下拉列表框中。 4. FilterIndex属性 该属性为整型量，用来确定出现在文件列表下拉列表框中的筛选文件（由Filter属性指定）为第几个。默认值为1，即第一个筛选的文件出现在下拉列表框中。若指定的值大于Filter属性指定的文件筛选数，则使用默认值。,5InitialDir属性 该属性为字符串型，用来确定出现对话框时的当前目录（InitialDir属性指定的目录）。在出现
5、对话框后，用户可以使用目录树来改变目录。 指定的目录应为绝对路径。 若不指定初始的目录，则使用出现对话框时的当前目录，若指定的目录不存在时，也是如此。,6Options属性 Options属性中包含有出现在打开文件及保存文件对话框中选项集中的所有可能值。 7Title属性 该属性为字符串型，用来确定出现在对话框标题栏上的文本。,8.2.2 调用打开文件对话框的方法 要调用打开文件对话框，在要使用打开文件对话框的相应事件处理程序中使用Execute方法即可，其语法为： OpenDialog1.Execute; 其中，OpenDialog1为打开文件对话框的Name属性的值。,8.3 保存对话框组
6、件（SaveDialog）,8.3.1 保存对话框组件的属性 1Filter属性 使用Filter属性可以筛选出现在保存文件对话框中的可见文件列表，然后使用文件类型列表组合框确定出现在文件列表中的文件。使用FilterIndex属性可以设置默认的筛选。,2Options属性 使用Options属性可使用户选择多个文件，从而Files属性中包含所有选定的文件，同时使用Options属性可以定制保存文件对话框的表现与外观。 3DefaultExt属性 使用DefaultExt属性可以使得文件名的后缀自动添加到文件名编辑框中。,8.3.2 调用保存文件对话框的方法 要调用保存文件对话框，在要使用保存
7、文件对话框的相应事件处理程序中使用Execute方法即可，其语法为： SaveDialog1.Execute; 其中，SaveDialog1为保存文件对话框的Name属性的值。,8.4 字体对话框组件（FontDialog）,8.4.1 字体对话框组件的属性 1. Device属性 Device属性指定检索字体的列表。 2Font属性 Font属性为用户使用字体对话框返回的字体，然后应用程序就可以使用该属性的值。 在显示字体对话框前，也可指定默认的字体。指定的字体名选定在字体组合框上。使用对象编辑器可以指定字体的属性或在显示字体对话框前给该属性赋值。,3MaxFontSize属性 该属性为整型
8、量，它确定字体对话框中对用户来说可用的最大字体的大小。要限制可用的字体大小，Options属性中必须包含有fdLimitSize的值。若fdLimitSize的值为False，则MaxFontSize属性的值是无效的。 默认值为0，即没有限制。,4MinFontSize属性 该属性为整型量，它确定字体对话框中对用户来说可用的最小字体的大小。要限制可用的字体大小，Options属性中必须包含有fdLimitSize的值。若fdLimitSize的值为False，则MinFontSize属性的值是无效的。 默认值为0，即没有限制。,5Options属性 Options属性中包含有出现在字体对话框选
9、项集中的所有可能值。 字体对话框组件的事件有OnApply事件。该事件为在字体对话框上出现应用按钮时，用户单击应用按钮出现的事件。 8.4.3 调用字体对话框的方法 要调用字体对话框，在要使用字体对话框的相应事件处理程序中使用Execute方法即可，其语法为： FontDialog1.Execute; 其中，FontDialog1为字体对话框的Name属性的值。,8.5 颜色对话框组件(ColorDialog),8.5.1 颜色对话框组件的属性 1.CustomColors属性 CustomColors属性确定可用在颜色对话框中的定制颜色。每一定制色由如下格式的字符串表示： ColorX=He
10、xValue 最多有16个定制颜色：ColorA到ColorP。 选定颜色后，使用定制颜色的字符串列表来保存在颜色对话框中指定的颜色。,2. Options属性 Options属性默认值为 （空集），表示所有的值为False，没有选项在起作用。 8.5.2 调用颜色对话框的方法 要调用颜色对话框，在要使用颜色对话框的相应事件处理程序中使用Execute方法即可，其语法为： ColorDialog1.Execute; 其中，ColorDialog1为颜色对话框的Name属性的值。,8.6 打印对话框组件（PrintDialog）,8.6.1 打印对话框组件属性 1Collate属性 该属性为布尔
11、属性，它确定当打印对话框出现时，分页复选框是否选定。无论初始的Collate属性设置如何，用户都可进行选定或不选定的操作。 默认的设置为False。,2Copies属性 该属性为整型量，它确定要打印的作业份数。默认值为0，在设计时指定的值，在打印对话框出现时作为默认值出现在其中。 3FromPage属性 该属性为整型量，它确定打印作业起始的页号。默认为0。,4MaxPage 属性 该属性为整型量，它确定当用户指定要打印的页号时，可指定的最大页号。若用户指定的页号大于MaxPage指定的值时，出现警告信息，这时用户必须输入有效的页号或关闭对话框。只有当Options属性的设置中包含poPageN
12、ums值时，才能指定页号 5MinPage属性 该属性为整型量，它确定当用户指定要打印的页号时，可指定的最小页号。若用户指定的页号小于MinPage指定的值时，出现警告信息，这时用户必须输入有效的页号或关闭对话框。只有当Options属性的设置中包含poPageNums值时，才能指定页号,6Options属性 Options属性默认值为 ,（空集），即没有选项在起作用。 7PrintRange属性 PrintRange属性确定打印范围的类型。 8. PrintToFile属性 该属性为布尔型，它确定是否选定打印到文件复选框。若为True，则可选定打印到文件复选框，若为False（默认值），则不
13、能选定。 若在设计，将PrintToFile属性设置为True，则当对话框出现时，打印到文件复选框选定。,9. ToPage属性 该属性为整型量，它确定打印作业的结束页码。默认为0，即没有结束页。 8.6.2 调用打印对话框的方法 打印对话框没有任何事件。要调用打印对话框，在要使用打印对话框的相应事件处理程序中使用Execute方法即可，其语法为： PrintDialog1.Execute; 其中，PrintDialog1为打印对话框的Name属性的值。,8.7 打印机设置对话框组件（PrinterSetupDialog）,打印机设置对话框允许用户在打印前设置打印机。 调用Execute方法可
14、以显示打印机设置对话框。当用户在打印对话框中选择设置按钮时，也可出现该对话框。 要调用打印机设置对话框，在要使用打印机设置对话框的相应事件处理程序中使用Execute方法即可，其语法为： PrinterSetupDialog1.Execute; 其中，PrinterSetupDialog1为打印机设置对话框的Name属性的值。,8.8 查找对话框组件（FindDialog）,8.8.1 查找对话框组件的属性 1FindText属性 该属性为字符串型，它包含要搜索的文本。 在显示查找对话框前指定FindText的值，则查找对话框出现时，FindText的值就出现在查找目标编辑框中。用户可以使用该
15、文本或修改它。 2Options属性 Options属性集中的值确定查找与替换对话框的表现与外观。,8.8.2 查找对话框组件的事件 查找对话框组件的事有OnFind，当用户选择查找下一个按钮时，就出现OnFind事件。 8.8.3 调用查找对话框的方法 要调用查找对话框，在要使用查找对话框的相应事件处理程序中使用Execute方法即可，其语法为： FindDialog1.Execute; 其中，FindDialog1为查找对话框的Name属性的值。,8.9 替换对话框组件（ReplaceDialog）,8.9.1 替换对话框组件的属性 ReplaceText属性 该属性为字符串型，在查找中若
16、FindText的值找到，该属性用来替换由FindText属性指定的字符串。,8.9.2 替换对话框组件的事件 替换对话框组件有二个事件OnFind、OnReplace。 当用户选择查找下一个按钮时，就出现OnFind事件。 当用户选择替换对话框中的替换或全部替换按钮时，则OnReplace事件出现。在OnReplace事件处理程序中，可以编写替换查找到文本的代码。代码中可以使用Options中的值来确定如何替换文本。,8.9.3 调用替换对话框的方法 要调用替换对话框，在要使用查找对话框的相应事件处理程序中使用Execute方法即可，其语法为： ReplaceDialog1.Execute; 其中，ReplaceDialog1为查找对话框的Name属性的值。,
