资源描述
,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,第八章 对话框设计,8.1 通用对话框组件,8.2 模式对话框与无模式对话框,8.3 消息框,习 题,第八章 对话框设计 8.1 通用对话框组件,1,8.1,通用对话框组件,Delphi 7,在通用对话框库中提供了标准对话框，用户可以实现打开和保存文件、搜索和替换、选择颜色、字体以及打印等操作，为,Windows,应用程序设计标准用户界面带来了极大的方便。在编写应用程序时，可以先设计好主菜单。在需要使用标准对话框菜单项的事件处理中，调用标准对话框的,Execute,等方法，以满足设计需要。,8.1 通用对话框组件Delphi 7在通用对话框库中提供了,2,8.1,通用对话框组件,8.1.1,文件对话框组件,Delphi 7,中包括了四种通用的文件对话框组件。,1,打开文件对话框（,TOpenDialog,）,(1),用途,通常情况下，标准的,Windows,应用程序中的“文件”菜单包含“打开”命令，选择该命令，将弹出打开文件对话框，使用该对话框选择要打开的文件。用户可以通过下拉框选择文件的存放位置、文件类型以及文件列表中要打开的文件。当用户单击了“打开”按钮，对话框将关闭，用户选中的一个或多个文件将被打开。,Delphi 7,提供了打开文件对话框组件,TOpenDialog,，用来显示一个“打开”对话框，在程序中使用,Execute,方法来激活,OpenDialog,对话框。,8.1 通用对话框组件8.1.1 文件对话框组件,3,8.1,通用对话框组件,(2),主要属性,DefaultText,属性,FileName,属性,Filter,属性,InitialDir,属性,Options,属性,Title,属性,8.1 通用对话框组件(2)主要属性,4,8.1,通用对话框组件,【,例,8-1】,利用主菜单的“文件,打开”命令和,OpenDialog,组件来显示“打开”对话框。,图8-3 窗体界面设计,8.1 通用对话框组件【例8-1】利用主菜单的“文件打开”,5,8.1,通用对话框组件,2,保存文件对话框（,TSaveDialog,）,保存文件对话框,TSaveDialog,组件用来弹出一个“另存为”对话框，让用户选择一个文件并保存。调用该组件的,Execute,方法可以弹出保存文件对话框，当用户单击“保存”按钮后，对话框将关闭，选中的文件名将被赋给,FileName,属性。,保存文件对话框组件的属性、方法和事件与打开文件对话框组件基本相同。,8.1 通用对话框组件2保存文件对话框（TSaveDial,6,8.1,通用对话框组件,3,打开图像文件对话框（,TOpenPictureDialog,）,打开图像文件对话框,TOpenPictureDialog,组件实际上与打开文件对话框组件基本相同，只是用于选择以及打开图像文件，对话框中包含了一个矩形的预览区域，如果可以读取选中的文件，该文件将在预览区域显示。该对话框支持的文件类型包括位图（,.bmp,）、图标文件（,.ico,）、,Windows,图元文件（,.wmf,）以及增强型,Windows,图元文件（,.emf,）。,该对话框具有与,TOpenDialog,相同的属性集，但是默认情况下，,Filter,属性对应于,TOpenPictureDialoge,组件支持的所有文件类型。,8.1 通用对话框组件3打开图像文件对话框（TOpenPi,7,8.1,通用对话框组件,4,保存图像文件对话框（,TSavePictureDialog,）,保存图像文件对话框,TSavePictureDialog,组件用来弹出一个带有图象预览的“另存为”对话框，该对话框的外观以及使用与,TOpenPictureDialog,对话框基本相同。,8.1 通用对话框组件4保存图像文件对话框（TSavePi,8,8.1,通用对话框组件,8.1.2,字体对话框（,TFontDialog,）组件,1,用途,使用,TFontDialog,组件可以显示一个选择字体对话框，当用户选中了一个字体并单击“确定”按钮之后，对话框将关闭并将选中的字体保存在组件的,Font,属性中。调用,Execute,方法可以激活该对话框。,2,主要属性,(1)Device,属性,(2)Font,属性,(3)MaxFontSize,和,MinFontSize,属性,(4)Options,属性,8.1 通用对话框组件8.1.2 字体对话框（TFontDi,9,8.1,通用对话框组件,【,例,8-2】,设计一个字体对话框，当用户选中某种字体之后，按钮的字体将改变为选中的字体。,8.1 通用对话框组件【例8-2】设计一个字体对话框，当用户,10,8.1,通用对话框组件,编写代码。,响应按钮,OnClick,事件的代码如下：,procedure Tform1.Button1Click(Sender:TObject);,begin,FontDialog1.Execute;,end;,在窗体的,OnApply,事件中添加代码如下：,procedure TForm1.FontDialog1Apply(Sender:TObject;Wnd:HWND);,begin,button1.Font:=fontdialog1.Font;,end;,8.1 通用对话框组件编写代码。,11,8.1,通用对话框组件,8.1.3,颜色对话框（,TColorDialog,）组件,1,用途,颜色对话框,TColorDialog,组件用来显示标准的,Windows,颜色对话框，用户可以从中选择一种颜色。调用该组件的,Execute,方法可以弹出“颜色”对话框，当用户选择了一种颜色并单击“确定”按钮之后，对话框将关闭，并且选中的颜色保存在组件的,Color,属性中。一个标准的颜色对话框如图,8-11,所示,8.1 通用对话框组件8.1.3 颜色对话框（TColorD,12,8.1,通用对话框组件,图,8-11,颜色对话框,8.1 通用对话框组件图8-11 颜色对话框,13,8.1,通用对话框组件,2,主要属性,(1)Color,属性,(2)CustomColors,属性,(3)Options,属性,8.1 通用对话框组件2主要属性,14,8.1,通用对话框组件,8.1.4,打印（,TPrintDialog,）与打印设置对话框（,TPrinterSetupDialog,）组件,1,用途,打印机对话框,TPrintDialog,组件用于显示标准的,Windows“,打印”对话框，通过它可以向打印机发送打印作业。打印设置对话框组件（,TPrinterSetupDialog,）用于显示一个打印设置对话框，该对话框的内容与打印驱动程序有关，这两个对话框都可以通过,Execute,方法调用进行显示。,8.1 通用对话框组件8.1.4 打印（TPrintDial,15,8.1,通用对话框组件,图,8-13,打印对话框,图,8-14,打印设置对话框,8.1 通用对话框组件图8-13 打印对话框图8-14,16,8.1,通用对话框组件,2,主要属性,(1)Collate,属性,(2)Copies,属性,(3)FromPage,以及,ToPage,属性,(4)MaxPage,以及,MinPage,属性,(5)Option,属性的,poPrintToFile,子属性,(6)PrintToFile,属性,8.1 通用对话框组件2主要属性,17,8.1,通用对话框组件,8.1.5,查找及替换对话框组件,1,查找对话框组件（,TfindDialog,）,(1),用途,通过“查找”对话框用户可以查找文本中的某个特定字符串，调用,TFindDialog,组件的,Execute,方法可以弹出一个“查找”对话框，如图,8-15,所示。,图8-15 “查找”对话框,8.1 通用对话框组件8.1.5 查找及替换对话框组件 图8,18,8.1,通用对话框组件,(2),主要属性,FindText,属性,Left,、,Top,以及,Position,属性,Options,属性,2,替换对话框组件,(TReplaceDialog),(1),用途,通过“替换”对话框用户可以查找一个特定的字符串并将该字符串替换为另外一个字符串，该对话框在修改文本输入错误很有用。调用,TReplaceDialog,组件的,Execute,方法可以弹出一个“替换”对话框，如图,8-16,所示。,8.1 通用对话框组件(2)主要属性,19,8.1,通用对话框组件,图,8-16“,替换”对话框,8.1 通用对话框组件图8-16“替换”对话框,20,8.1,通用对话框组件,(2),主要属性,TReplaceDialog,组件是由,TFindDialog,组件派生出来，除了,TFindDialog,组件的属性外，它还具有,ReplaceText,属性，该属性为一个字符串，它代表了“替换为”编辑框中的内容。,该组件除了具有,OnFind,事件外，还有一个,OnReplace,事件，当用户单击“替换”或“全部替换”按钮时被激活，用户可以通过,Options,属性中的,frReplace,或,ReplaceAll,的值为,true,或,false,来判断单击了哪个按钮。,8.1 通用对话框组件(2)主要属性,21,8.2,模式对话框与无模式对话框,8.2.1,模式对话框,1,模式对话框的概念,模式对话框在程序中应用最为普遍。当用户在应用中显示一个对话框时，用户不能在该对话框和其他窗体之间进行切换，而必须关闭了该对话框，才能将输入焦点转移到其他窗体，这种对话框称作模式对话框。模式对话框用于用户必须做出选择并进行确认的操作，通常在对话框上会有“确认”和“取消”按钮。,8.2 模式对话框与无模式对话框 8.2.1 模式对话框,22,8.2,模式对话框与无模式对话框,2,模式对话框的创建,在,Delphi,中，对话框实际上是一个窗体，只是属性与其他窗体不同。要创建对话框，首先要新建一个窗体，并将窗体的,BorderStyle,属性设置为,bsDialog,，然后运行该窗体，用户就会发现该窗体没有最大化和最小化按钮，也没有系统菜单，并且不能改变窗体的大小，这些就是对话框窗体与其他窗体的区别。,8.2 模式对话框与无模式对话框2模式对话框的创建,23,8.2,模式对话框与无模式对话框,【,例,8-3】,设计一个“考试系统”登录界面，如图,8-18,所示。用户必须选择登录身份，如果是管理员，必须输入密码；如果是考生，必须输入八位准考证号。,图8-18 登录界面,8.2 模式对话框与无模式对话框【例8-3】设计一个“考试系,24,8.2,模式对话框与无模式对话框,编写代码。在,LoginForm,窗体所对应的单元文件中添加如下代码：,implementation,$R*.dfm,登录界面“确定”按钮的事件处理程序代码如下：,uses ExamUnit;/ExamUnit,是模式对话框的单元文件,const glmm=ksxt;/,定义管理员密码,8.2 模式对话框与无模式对话框编写代码。在LoginFor,25,8.2,模式对话框与无模式对话框,procedure TLoginForm.BtnConfirmClick(Sender:TObject);,begin,if(not RadioButton1.checked)and(not RadioButton2.Checked)then,MessageDlg(,请选择用户身份！,mtWarning,mbOK,0);/,必须选择用户身份,if RadioButton1.checked then /,用户身份为管理员,if edit1.text=glmm then,begin,ExamForm.caption:=,系统管理,;,ExamForm.ShowModal;,close;,end,else,MessageDlg(,密码错误,请
展开阅读全文