《《Delphi程序设计及实验指导（第二版）》-张景安-电子教案 第7章 对话框设计》由会员分享，可在线阅读，更多相关《《Delphi程序设计及实验指导（第二版）》-张景安-电子教案 第7章 对话框设计（31页珍藏版）》请在金锄头文库上搜索。
1、第7章 对话框设计,导读 7.1 通用对话框组件 7.2 模式对话框与无模式对话框 7.3 消息框 小结 习题,导读,在Windows应用程序中常常借助对话框来与用户进行交流，有些对话框用于提醒用户能不能进行某些操作，这类对话框称作消息对话框，有些对话框用于获取输入数据。 对话框实际上是一个窗体，它不但可以接受输入，还可以被移动和关闭。但与窗体又有区别，对话框的大小一经设置，在应用程序运行后就不能改变；而窗体的大小是可以调整的。 在Delphi 8 for .NET中提供了一些对话框组件，通过它们用户可以访问Windows内部的通用对话框，例如字体对话框、文件对话框等。另外，Windows将对
2、话框分为两大类：模式对话框和无模式对话框。 本章主要介绍一些通用对话框组件和这两类对话框的设计方法。 学习目标： 掌握通用对话框组件的使用 掌握模式对话框和无模式对话框的概念和使用方法 掌握消息对话框的使用,7.1 通用对话框组件,Delphi 8 for.NET在通用对话框库中提供了标准对话框，用户可以通过这些对话框实现打开和保存文件、搜索和替换、选择颜色、字体以及打印等操作，这为Windows应用程序设计标准用户界面带来了极大的方便。在编写应用程序时，可以先设计好主菜单。在需要使用标准对话框菜单项的事件处理中，调用标准对话框的Execute等方法来满足设计需要。 对话框类的组件位于组件面板
3、的Dialogs选项卡中。,7.1 通用对话框组件,7.1.1 文件对话框组件 Delphi中包括了4种通用的文件对话框组件。 1打开文件对话框（TOpenDialog） 2保存文件对话框（TSaveDialog） 3打开图像文件对话框（TOpenPictureDialog） 4保存图像文件对话框（TSavePictureDialog）,7.1 通用对话框组件,1打开文件对话框（TOpenDialog） （1）用途 通常情况下，标准的Windows应用程序中的“文件”菜单包含“打开”命令，选择该命令，将弹出打开文件对话框，使用该对话框来选择要打开的文件。用户可以通过下拉框选择文件的存放位置、文
4、件类型以及文件列表中要打开的文件。当用户单击了“打开”按钮，对话框将关闭，用户选中的一个或多个文件将被打开。 Delphi提供了打开文件对话框组件TOpenDialog，用来显示一个“打开”对话框，在程序中使用Execute方法来激活TOpenDialog对话框。 （2）主要属性 DefaultText属性：该属性用来设置打开文件对话框的默认扩展名，如果不需要扩展名，该属性设置为空。 FileName属性：该属性用来设置打开对话框中默认的文件名。,7.1 通用对话框组件, Filter属性：该属性确定文件类型和在文件类型下拉框中的顺序。用户可以在设计时指定该属性，选中TOpenDialog组件
5、，单击Filter属性旁边的“”按钮，弹出Filter Editor对话框，如图7-2所示。在Filter Name框中输入说明，在Filter中输入文件通配符 InitialDir属性：该属性用来设置打开对话框中的当前文件夹。 Options属性：该属性决定了文件对话框的外观和行为，其3个重要的取值及含义如下： ofReadOnly：该属性的值为true，表示启用“只读方式打开”复选框。 ofCreatePrompt：该属性的值为true时，表示如果输入的文件名不存在，则要新建这个文件，单击OK按钮，弹出一个对话框，用以确定是否要新建这个文件。 ofPathMustExist：该属性的值为t
6、rue，表示输入的文件名必须是正确的，如果不正确，将会弹出一个警告框。 Title属性：该属性用来设置对话框的标题。,7.1 通用对话框组件,2保存文件对话框（TSaveDialog） 保存文件对话框组件TSaveDialog用来弹出一个“另存为”对话框，让用户选择一个文件并保存。调用该组件的Execute方法可以弹出保存文件对话框，当用户单击“保存”按钮后，对话框将关闭，选中的文件名将被赋给FileName属性。 保存文件对话框组件的属性、方法和事件与打开文件对话框组件基本相同,7.1 通用对话框组件,3打开图像文件对话框（TOpenPictureDialog） 打开图像文件对话框组件TOp
7、enPictureDialog实际上与打开文件对话框组件基本相同，只是用于选择以及打开图像文件，该对话框中包含了一个矩形的预览区域，如果可以读取选中的文件，该文件将在预览区域显示。该对话框支持的文件类型包括位图（.bmp）、图标文件（.ico）、Windows图元文件（.wmf）以及增强型Windows图元文件（.emf）。 该对话框具有与TOpenDialog相同的属性集，但是默认情况下，Filter属性对应于TOpenPictureDialoge组件支持的所有文件类型。 4保存图像文件对话框（TSavePictureDialog） 保存图像文件对话框组件TSavePictureDialog
8、用来弹出一个带有图像预览功能的“另存为”对话框，该对话框的外观以及使用与TOpenPictureDialog对话框基本相同。,7.1 通用对话框组件,7.1.2 字体对话框（TFontDialog）组件 1用途 使用TFontDialog组件可以显示一个选择字体对话框，当用户选中了一种字体并单击“确定”按钮之后，对话框将关闭该对话框并将选中的字体保存在组件的Font属性中。调用Execute方法可以激活该对话框。,7.1 通用对话框组件,2主要属性 （1）Device属性：该属性用来设置字体对话框中显示哪种设备的可用字体列表。该属性值的取值及含义如下： fdScreen：表示对话框只列出可以使
9、用的屏幕字体。 fdPrinter：表示对话框只列出可以使用的打印字体。 fdBoth：表示列出所有设备的可用字体。 （2）Font属性：该属性用来设置当前选中的字体，指定了字体的高度、颜色、名称以及风格等属性。 （3）MaxFontSize和MinFontSize属性：这两个属性分别设置了对话框中可选字体的最大以及最小尺寸。 （4）Options属性：该属性设置对话框的外观以及功能，其取值请读者参考联机帮助。,7.1 通用对话框组件,【例7-2】设计一个字体对话框，当用户选中某种字体之后，按钮的字体将变为选中的字体。 （1）新建一个工程FontDialogPrj.dpr，添加TButton组
10、件和TFontDialog组件。 （2）窗体界面设计如图7-8所示。 （3）编写代码。 响应按钮OnClick事件的代码如下： procedure Tform1.Button1Click(Sender:TObject); begin FontDialog1.Execute; end; 在窗体的OnApply事件中添加如下代码： procedure TForm1.FontDialog1Apply(Sender: TObject; Wnd: HWND); begin button1.Font:=fontdialog1.Font; end;,7.1 通用对话框组件,7.1.3 颜色对话框（TColo
11、rDialog）组件 1用途 颜色对话框组件TColorDialog用来显示标准的Windows颜色对话框，用户可以从中选择一种颜色。调用该组件的Execute方法可以弹出“颜色”对话框，当用户选择了一种颜色并单击“确定”按钮之后，对话框将关闭，并且选中的颜色保存在组件的Color属性中。,7.1 通用对话框组件,2主要属性 （1）Color属性：该属性为用户选中的属性，该属性的类型为TColor。为了使对话框中显示一个默认的颜色，应该在对象查看器中设置Color属性。 （2）CustomColors属性：该属性用来设置在颜色对话框中显示哪些自定义颜色，每种自定义颜色用如下格式的字符串表示：
12、ColorChar=HexValue; （3）Options属性：该属性用来设置对话框的属性和外观，例如cdFullOpen属性值表示初始时对话框完全展开，,7.1 通用对话框组件,7.1.4 打印（TPrintDialog）与打印设置对话框（TPrinterSetupDialog）组件 1用途 打印对话框组件TPrintDialog用于显示标准的Windows“打印”对话框，通过它可以向打印机发送打印作业。打印设置对话框组件TPrinterSetupDialog用于显示一个打印设置对话框，该对话框的内容与打印驱动程序有关，这两个对话框都可以通过Execute方法调用进行显示。图7-13显示了
13、一个标准的打印对话框，图7-14显示了一个对应特定打印驱动程序的打印设置对话框。,7.1 通用对话框组件,2主要属性 （1）Collate属性：该属性用来设置“自动分页”复选框是否被选中，若设置该属性为true，则对话框打开时，该复选框处于选中状态。 （2）Copies属性：该属性用来设置用户选择要打印的份数。 （3）FromPage和ToPage属性：这两个属性用来设置打印作业的起始和终止页码，它们分别对应打印对话框中的“页码范围”选项中的“从”和“到”编辑框。 （4）MaxPage和MinPage属性：这两个属性设置了用户可以打印的最大和最小页码，如果用户要打印的页面范围不在这两个属性之间
14、，则弹出一条错误信息。 （5）Option属性的poPrintToFile子属性：该属性为true时，可以设置打印对话框显示“打印到文件”复选框。 （6）PrintToFile属性：该属性用来设置是否选中“打印到文件”复选框。,7.1 通用对话框组件,7.1.5 查找及替换对话框组件 1查找对话框组件（TFindDialog） （1）用途 通过“查找”对话框，用户可以查找文本中的某个特定字符串，调用TFindDialog组件的Execute方法可以弹出一个“查找”对话框，如图7-15所示。,7.1 通用对话框组件,（2）主要属性 FindText属性：该属性的值为对话框弹出时编辑框中显示的默认
15、字符串。用户输入要查找的字符串后，单击“查找下一个”按钮，这时对话框编辑框中的字符串就会被赋给该属性。 Left、Top以及Position属性 这3个属性都用来设置对话框的位置，Left属性为对话框左上角的X坐标，它的值与 Position（TPoint类型）属性的第一个整数相同，Top属性为对话框左上角的Y坐标。所有坐标均为屏幕坐标。 Options属性：该属性用来设置对话框的外观和行为，该属性的声明如下 type TFindOption=(frDown,frFindNext,frHideMatchCase,frHideWholeWord,frHideUpDown frMatchCase,
16、frDisableMatchCase,frDisableUpDown,frDisableWholeWord, frReplace,frReplaceAll,frWholeWord,frShowHelp)； TFindOptions=set Of TFindOption； 用户可以为Options属性取一个或多个值来设置“查找”对话框的状态，例如取frMatchCase，则“区分大小写”复选框处于选中状态。其他的属性值请读者参考Delphi在线帮助。,7.1 通用对话框组件,2替换对话框组件（TReplaceDialog） （1）用途 通过“替换”对话框用户可以查找一个特定的字符串并将该字符串替换为另外一个字符串，该对话框在修改文本输入错误时很有用。调用TReplaceDialog组件的Execute方法可以弹出一个“替换”对话框，,7.1 通用对话框组件,（2）主要属性 TReplaceDialog组件由TFindDialog组件派生而来，除了TFindDialog组件的属性外，它还具有ReplaceText
