Delphi教学 第08章 对话框设计(new).ppt

第八章 对话框设计 8.1 通用对话框组件通用对话框组件 8.2 消息框消息框习习 题题8.1 通用对话框组件Delphi 7在通用对话框库中提供了标准对话框，在通用对话框库中提供了标准对话框，用户可以实现打开和保存文件、搜索和替换、用户可以实现打开和保存文件、搜索和替换、选择颜色、字体以及打印等操作，为选择颜色、字体以及打印等操作，为Windows应用程序设计标准用户界面带来了应用程序设计标准用户界面带来了极大的方便。在编写应用程序时，可以先设计极大的方便。在编写应用程序时，可以先设计好主菜单。在需要使用标准对话框菜单项的事好主菜单。在需要使用标准对话框菜单项的事件处理中，调用标准对话框的件处理中，调用标准对话框的Execute等方法，等方法，以满足设计需要。以满足设计需要。8.1 通用对话框组件8.1.1 文件对话框组件文件对话框组件Delphi 7中包括了四种通用的文件对话框组件。中包括了四种通用的文件对话框组件。1打开文件对话框（打开文件对话框（TOpenDialog）(1)用途用途 通常情况下，标准的通常情况下，标准的Windows应用程序中的应用程序中的“文件文件”菜单包含菜单包含“打开打开”命令，选择该命令，命令，选择该命令，将弹出打开文件对话框，使用该对话框选择要将弹出打开文件对话框，使用该对话框选择要打开的文件。用户可以通过下拉框选择文件的打开的文件。用户可以通过下拉框选择文件的存放位置、文件类型以及文件列表中要打开的存放位置、文件类型以及文件列表中要打开的文件。当用户单击了文件。当用户单击了“打开打开”按钮，对话框将按钮，对话框将关闭，用户选中的一个或多个文件将被打开。关闭，用户选中的一个或多个文件将被打开。Delphi 7提供了打开文件对话框组件提供了打开文件对话框组件TOpenDialog，用来显示一个，用来显示一个“打开打开”对话框，对话框，在程序中使用在程序中使用Execute方法来激活方法来激活OpenDialog对话框对话框。8.1 通用对话框组件(2)主要属性主要属性 DefaultText属性属性:用于设置打开文件对话框的默认扩用于设置打开文件对话框的默认扩展名展名,如果不需要扩展名如果不需要扩展名,该属性设置为空该属性设置为空.FileName属性属性:用来设置打开对话框中默认的文件名用来设置打开对话框中默认的文件名 Filter属性属性:确定文件类型和在文件类型下拉框中的顺序确定文件类型和在文件类型下拉框中的顺序 filterindex属性属性:文件类型过滤器的索引项文件类型过滤器的索引项 InitialDir属性属性:用来设置打开对话框中的当前文件夹用来设置打开对话框中的当前文件夹 Title属性属性:用来设置对话框的标题用来设置对话框的标题(3)主要事件主要事件 onfolderchange事件事件:当文件目录更改时触发当文件目录更改时触发 onselectionchange事件事件:当选择新文件时触发当选择新文件时触发 onTypechange事件事件:当文件类型改变时触发当文件类型改变时触发8.1 通用对话框组件【例例8-1】利用主菜单的利用主菜单的“文件文件打开打开”命令和命令和OpenDialog组件组件来显示来显示“打开打开”对话框。对话框。图8-3 窗体界面设计 8.1 通用对话框组件2保存文件对话框（保存文件对话框（TSaveDialog）保存文件对话框保存文件对话框TSaveDialog组件用来弹出组件用来弹出一个一个“另存为另存为”对话框，让用户选择一个对话框，让用户选择一个文件并保存。调用该组件的文件并保存。调用该组件的Execute方法可方法可以弹出保存文件对话框，当用户单击以弹出保存文件对话框，当用户单击“保保存存”按钮后，对话框将关闭，选中的文件按钮后，对话框将关闭，选中的文件名将被赋给名将被赋给FileName属性。属性。保存文件对话框组件的属性、方法和事件与保存文件对话框组件的属性、方法和事件与打开文件对话框组件基本相同。打开文件对话框组件基本相同。8.1 通用对话框组件3打开图像文件对话框（打开图像文件对话框（TOpenPictureDialog）打开图像文件对话框打开图像文件对话框TOpenPictureDialog组件实组件实际上与打开文件对话框组件基本相同，只是用于选际上与打开文件对话框组件基本相同，只是用于选择以及打开图像文件，对话框中包含了一个矩形的择以及打开图像文件，对话框中包含了一个矩形的预览区域，如果可以读取选中的文件，该文件将在预览区域，如果可以读取选中的文件，该文件将在预览区域显示。该对话框支持的文件类型包括位图预览区域显示。该对话框支持的文件类型包括位图（.bmp）、图标文件（）、图标文件（.ico）、）、Windows图元文图元文件（件（.wmf）以及增强型）以及增强型Windows图元文件图元文件（.emf）。）。该对话框具有与该对话框具有与TOpenDialog相同的属性集，但是相同的属性集，但是默认情况下，默认情况下，Filter属性对应于属性对应于TOpenPictureDialoge组件支持的所有文件类型。组件支持的所有文件类型。8.1 通用对话框组件4保存图像文件对话框保存图像文件对话框（TSavePictureDialog）保存图像文件对话框保存图像文件对话框TSavePictureDialog组件用来弹出一个带有图象预览的组件用来弹出一个带有图象预览的“另存另存为为”对话框，该对话框的外观以及使用与对话框，该对话框的外观以及使用与TOpenPictureDialog对话框基本相同。对话框基本相同。8.1 通用对话框组件8.1.2 字体对话框（字体对话框（TFontDialog）组件）组件 1用途用途使用使用TFontDialog组件可以显示一个选择字体对话框，组件可以显示一个选择字体对话框，当用户选中了一个字体并单击当用户选中了一个字体并单击“确定确定”按钮之后，对按钮之后，对话框将关闭并将选中的字体保存在组件的话框将关闭并将选中的字体保存在组件的Font属性中。属性中。调用调用Execute方法可以激活该对话框。方法可以激活该对话框。2主要属性主要属性(1)Device属性属性:指定可从中获得可用字体列表的设备指定可从中获得可用字体列表的设备:(2)fdScreen:只列出可以使用的屏幕字体只列出可以使用的屏幕字体(3)fdPrinter:只列出可以使用的打印字体只列出可以使用的打印字体(4)fdBoth:列出所有设备的可用字体列出所有设备的可用字体(2)Font属性属性:设置当前选中的字体设置当前选中的字体(大小大小/颜色等颜色等)(3)MaxFontSize和和MinFontSize属性属性(设置可选字体设置可选字体的最大及最小尺寸的最大及最小尺寸,只有只有options属性设置为属性设置为fdLimitSize标志后才有效标志后才有效)8.1 通用对话框组件【例例8-2】设计一个字体对话框，当用户选中某设计一个字体对话框，当用户选中某种字体之后，按钮的字体将改变为选中的字体。种字体之后，按钮的字体将改变为选中的字体。8.1 通用对话框组件编写代码。编写代码。响应按钮响应按钮OnClick事件的代码如下：事件的代码如下：procedure Tform1.Button1Click(Sender:TObject);begin FontDialog1.Execute;end;在窗体的在窗体的OnApply事件中添加代码如下：事件中添加代码如下：procedure TForm1.FontDialog1Apply(Sender:TObject;Wnd:HWND);beginbutton1.Font:=fontdialog1.Font;end;8.1 通用对话框组件8.1.3 颜色对话框（颜色对话框（TColorDialog）组件）组件1用途用途颜色对话框颜色对话框TColorDialog组件用来显示标准的组件用来显示标准的Windows颜色对话框，用户可以从中选择一种颜颜色对话框，用户可以从中选择一种颜色。调用该组件的色。调用该组件的Execute方法可以弹出方法可以弹出“颜色颜色”对话框，当用户选择了一种颜色并单击对话框，当用户选择了一种颜色并单击“确定确定”按按钮之后，对话框将关闭，并且选中的颜色保存在组钮之后，对话框将关闭，并且选中的颜色保存在组件的件的Color属性中。一个标准的颜色对话框如图属性中。一个标准的颜色对话框如图8-11所示所示2.主要属性主要属性 Color属性属性:设置对话框中的默认颜色设置对话框中的默认颜色 8.1 通用对话框组件图8-11 颜色对话框8.1 通用对话框组件8.1.4 打印（打印（TPrintDialog）与打印设置对话框）与打印设置对话框（TPrinterSetupDialog）组件）组件1用途用途打印机对话框打印机对话框TPrintDialog组件用于显示标准的组件用于显示标准的Windows“打印打印”对话框，通过它可以向打印机发送对话框，通过它可以向打印机发送打印作业。打印设置对话框组件打印作业。打印设置对话框组件（TPrinterSetupDialog）用于显示一个打印设置对）用于显示一个打印设置对话框，该对话框的内容与打印驱动程序有关，这两个话框，该对话框的内容与打印驱动程序有关，这两个对话框都可以通过对话框都可以通过Execute方法调用进行显示。方法调用进行显示。8.1 通用对话框组件图8-13 打印对话框图8-14 打印设置对话框8.1 通用对话框组件2主要属性主要属性(1)Collate属性属性:设置设置“自动分页自动分页”复选框是否被选复选框是否被选中，若设为中，若设为true，则对话框打开时，该复选框处于，则对话框打开时，该复选框处于选中状态。选中状态。(2)Copies属性：设置用户要打印的份数。属性：设置用户要打印的份数。(3)FromPage以及以及ToPage属性属性：设置打印作业的：设置打印作业的起始页码和终止页码起始页码和终止页码(4)MaxPage以及以及MinPage属性：设置用户可以打属性：设置用户可以打印的最大和最小页码，如果用户打印的页面范围不印的最大和最小页码，如果用户打印的页面范围不在这两个属性之性，则弹出一条错误信息。在这两个属性之性，则弹出一条错误信息。8.1 通用对话框组件8.1.5 查找及替换对话框组件查找及替换对话框组件 1查找对话框组件（查找对话框组件（TfindDialog）(1)用途用途通过通过“查找查找”对话框用户可以查找文本中的某个特定对话框用户可以查找文本中的某个特定字符串，调用字符串，调用TFindDialog组件的组件的Execute方法可以方法可以弹出一个弹出一个“查找查找”对话框，如图对话框，如图8-15所示。所示。图8-15 “查找”对话框 8.1 通用对话框组件(2)主要属性主要属性 FindText属性属性：该属性的值为对话框弹出时：该属性的值为对话框弹出时编辑框中显示的默认字符串，用户输入要查找编辑框中显示的默认字符串，用户输入要查找的字符串后，单击的字符串后，单击“查找下一个查找下一个”按钮，这时按钮，这时对话框中的字符串就会被赋给该属性。对话框中的字符串就会被赋给该属性。Left、Top：用于设置对话框的位置。：用于设置对话框的位置。2替换对话框组件替换对话框组件(TReplaceDialog)(1)用途用途通过通过“替换替换”对话框用户可以查找一个特定的字对话框用户可以查找一个特定的字符串并将该字符串替换为另外一个字符串，该符串并将该字符串替换为另外一个字符串，该对话框在修改文本输入错误很有用。调用对话框在修改文本输入错误很有用。调用TReplaceDialog组件的组件的Execute方法可以弹方法可以弹出一个出一个“替换替换”对话框，如图对话框，如图8-16所示。所示。8.1 通用对话框组件图8-16“替换”对话框8.1 通用对话框组件(2)主要属性主要属性TReplaceDialog组件是由组件是由TFindDialog组件派组件派生出来，除了生出来，除了TFindDialog组件的属性外，它组件的属性外，它还具有还具有ReplaceText属性，该属性为一个字符属性，该属性为一个字符串，它代表了串，它代表了“替换为替换为”编辑框中的内容。编辑框中的内容。该组件除了具有该组件除了具有OnFind事件外，还有一个事件外，还有一个OnReplace事件，当用户单击事件，当用户单击“替换替换”或或“全全部替换部替换”按钮时被激活，用户可以通过按钮时被激活，用户可以通过Options属性中的属性中的frReplace或或ReplaceAll的的值为值为true或或false来判断单击了哪个按钮。来判断单击了哪个按钮。8.2 消息框 当应用程序想从用户那里得到一个简单的应答时，使用当应用程序想从用户那里得到一个简单的应答时，使用消息框来代替对话框是很合适的，并且也更容易。弹消息框来代替对话框是很合适的，并且也更容易。弹出一个消息框可以有多种方法。出一个消息框可以有多种方法。1 MessageDlg函数函数 一般情况下用一般情况下用MessageDlg函数弹出一个消息框，该函函数弹出一个消息框，该函数的语法如下：数的语法如下：iItem:=MessageDlg(const Msg:string;Atype:TmsgDlgType;Abuttons:TmsaDlgButton;HelpCtx:Longint):Word;8.2 消息框Msg参数指定了消息框显示的内容，参数指定了消息框显示的内容，Atype参数指定消息框的类型，该参数类型为参数指定消息框的类型，该参数类型为TmsgDlgType，它的取值及含义见表，它的取值及含义见表8-4。Abuttons参数指定了消息框包含哪些按钮，该参数指定了消息框包含哪些按钮，该参数类型为参数类型为TmsgDlgButtons，它的取值及含，它的取值及含义见表义见表8-5。HelpCtx参数指定了帮助主题的帮助上下文的参数指定了帮助主题的帮助上下文的ID。8.2 消息框表8-4 Atype参数的取值取取值值说说明明mtWarning显显示一个示一个带带有有蓝蓝色惊色惊叹叹号的消息框号的消息框mtError显显示一个示一个带带有有红红色停止符号的消息框色停止符号的消息框mtInformation显显示一个示一个带带有有蓝蓝色色“i”标标志的消息框志的消息框mtConfirmation 显显示一个示一个带带有有绿绿色色问问号的消息框号的消息框mtCustom消息框中没有位消息框中没有位图图，对话对话框的框的标题标题是是应应用程序用程序执执行文件名行文件名8.2 消息框表8-5 Abuttom参数的取值取取值值说说明明mbYes一个表面上一个表面上显显示示“Yes”的按的按钮钮mbNo一个表面上一个表面上显显示示“No”的按的按钮钮mbOk一个表面上一个表面上显显示示“OK”的按的按钮钮mbCancel一个表面上一个表面上显显示示“Cancel”的按的按钮钮mbHelp一个表面上一个表面上显显示示“Help”的按的按钮钮mbAbort一个表面上一个表面上显显示示“Abort”的按的按钮钮mbRetry一个表面上一个表面上显显示示“Retry”的按的按钮钮mbIgnore一个表面上一个表面上显显示示“Ignore”的按的按钮钮mbAll一个表面上一个表面上显显示示“All”的按的按钮钮表8-6 各按钮的返回值TMsgDlgBtn值值返回返回值值mbOKmrOkmbCancelmrCancelmbYesmrYesmbNomrNombAbortmrAbortmbRetrymrRetrymbIgnoremrIgnorembAllmrAllmbNoToAllmrNoToAllmbYesToAllmrYesToAll8.2 消息框MessageDlg的返回值与用户所选的按钮有关。使用的返回值与用户所选的按钮有关。使用下面的代码就可以方便地显示一个消息框：下面的代码就可以方便地显示一个消息框：messagedlg(aa,mtinformation,mbok,mbcancel,0)图8-27 消息框8.2 消息框if messagedlg(输入的数据无效输入的数据无效,mtinformation,mbok,mbcancel,0)=mrok then showmessage(ok)else showmessage(cancel);8.2 消息框2 MessageDlgPos函数函数 MessageDlgPos函数与函数与MessageDlg函数的使函数的使用方法基本相同，只是可以用用方法基本相同，只是可以用X和和Y参数确定参数确定消息框的位置。其语法如下：消息框的位置。其语法如下：Function MessageDlgPos(constMsg:string;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:Longint;X,Y:Integer):Word;MessageDlgPos返回用户所选择的按钮的值，返回用户所选择的按钮的值，表表8-6给出了可以在消息框中使用的各种按钮给出了可以在消息框中使用的各种按钮的的TMsgDlgBtn的值，以及相应的返回值。的值，以及相应的返回值。8.2 消息框表8-6 各按钮的返回值TMsgDlgBtn值值返回返回值值mbOKmrOkmbCancelmrCancelmbYesmrYesmbNomrNombAbortmrAbortmbRetrymrRetrymbIgnoremrIgnorembAllmrAllmbNoToAllmrNoToAllmbYesToAllmrYesToAll8.2 消息框3 ShowMessage过程过程调用调用ShowMessage过程可以显示一个带有过程可以显示一个带有OK按钮的按钮的简单消息框。其语法如下：简单消息框。其语法如下：procedure ShowMessage(const Msg:String);Msg参数指定在消息框中显示的消息字符串，对话框的参数指定在消息框中显示的消息字符串，对话框的标题即为应用程序的执行文件名。标题即为应用程序的执行文件名。如何分行显示信息？如何分行显示信息？8.2 消息框4 ShowMessageFmt过程过程调用调用ShowMessageFmt过程可以显示一个带有过程可以显示一个带有OK按按钮的简单消息框。其语法如下：钮的简单消息框。其语法如下：procedure ShowMessageFmt(const Msg:string;Params:array of const);Msg参数是一个格式化的字符串，用于显示在对话框上参数是一个格式化的字符串，用于显示在对话框上带有格式的消息，带有格式的消息，Params指定集成到消息串中的参指定集成到消息串中的参数，对话框的标题即为应用程序的执行文件名。数，对话框的标题即为应用程序的执行文件名。第一个参数第一个参数Msg 是是“格式字符串格式字符串”，可以包含字符信息，也，可以包含字符信息，也可以包含数组可以包含数组Params中参数的类型和格式信息。第二个参中参数的类型和格式信息。第二个参数是一个数组，从左往右每个元素与第一个参数中的类型格数是一个数组，从左往右每个元素与第一个参数中的类型格式信息一一对应。式信息一一对应。类型和格式信息由字符类型和格式信息由字符“%”开头，格式如下：开头，格式如下：%-.-表示左对齐，若缺省则表示左对齐表示左对齐，若缺省则表示左对齐取值取值意义意义 u无符号十进制整数无符号十进制整数 d有符号十进制整数有符号十进制整数 f实数实数 s字符串字符串 x十六进制整数十六进制整数类型参数取值及意义类型参数取值及意义procedure TForm1.Button2Click(Sender:TObject);var i:integer;begin i:=100;showmessagefmt(AA%-5d,%5dBB,I,i+2);end;8.2 消息框图8-28 显示结果var i:real;begin i:=100.35;showmessagefmt(AA%-10.1f,%10.2fBB,I,i+2);end;8.2 消息框5.InputBox函数函数 Delphi 7.0提供了一个用于输入信息的标准函数，定义如下：function InputBox(const ACaption,APrompt,ADefault:string):string;该函数显示一个能接受用户输入的对话框，并以字符串的形式返回用户输入的信息。InputBox函数有三个参数，第一个参数Acaption是对话框的标题，第二个参数Aprompt是提示信息的内容，第三个参数Adefault指定了默认的输入内容。8.2 消息框【例】inputbox(输入半径,input:,1);例：输入圆的半径，求出圆的面积例：输入圆的半径，求出圆的面积习习 题题1利用通用对话框组件利用通用对话框组件TColorDialog设置设置Memo组件组件中的文本的颜色。中的文本的颜色。2弹出一个消息框有哪几种方法。弹出一个消息框有哪几种方法。3利用通用对话框组件利用通用对话框组件TOpenDialog将已有文本文件将已有文本文件的内容显示在窗体的的内容显示在窗体的TMemo组件中。设置打开文件对组件中。设置打开文件对话框的话框的Filter属性为文本文件（属性为文本文件（*.txt），），word文档文档（*.doc），如果打开文件不是文本文件，弹出一个出），如果打开文件不是文本文件，弹出一个出错消息框，出错信息为：错消息框，出错信息为：“不是文本文件！不是文本文件！”。设计。设计窗体如图窗体如图8-29所示，消息框如图所示，消息框如图8-30所示。所示。习习 题题图8-29 窗体设计图8-30 消息框