Delphi程序设计及实验指导（第二版） 第7章 对话框设计.pptVIP

7.2 模式对话框与无模式对话框 (3）编写程序代码。 在模式对话框单元文件ExamUnit中添加如下代码： implementation uses TestUnit; //TestUnit是无模式对话框的的单元文件 {$R *.dfm} “进入”按钮的OnClick事件处理代码如下： procedure TExamForm.Button1Click(Sender: TObject); begin TestForm.Show; //显示无模式对话框 end; 7.3 消息框 当应用程序想从用户那里得到一个简单的应答时，使用消息框来代替对话框是很合适的，并且也更容易。弹出一个消息框可以有多种方法。 1．MessageDlg函数 一般情况下用MessageDlg函数弹出一个消息框，该函数的语法如下： iItem:=MessageDlg(const Msg:string;Atype:TMsgDlgType; Abuttons:TmsgDlgButtons;HelpCtx:Longint):Word; Msg参数指定了消息框显示的内容。 Atype参数指定消息框的类型，该参数类型为TMsgDlgType， 7.2 模式对话框与无模式对话框 2．MessageDlgPos函数 MessageDlgPos函数与MessageDlg函数的使用方法基本相同，只是可以用X和Y参数确定消息框的位置。其语法如下： Function MessageDlgPos (const Msg:string;DlgType:TMsgDlgType;Buttons: TMsgDlgButtons;HelpCtx:Longint;X,Y:Integer):Word; MessageDlgPos返回用户所选择的按钮的值， TMsgDlgButtons值 返回值 mbOK mrOk mbCancel mrCancel mbYes mrYes mbNo mrNo mbAbort mrAbort mbRetry mrRetry mbIgnore mrIgnore mbAll mrAll mbNoToAll mrNoToAll mbYesToAll mrYesToAll 7.2 模式对话框与无模式对话框 4．ShowMessageFmt过程 调用ShowMessageFmt过程可以显示一个带有OK按钮的简单消息框。其语法如下： procedure ShowMessageFmt (const Msg:string;Params:array of const); Msg参数是一个格式化的字符串，用于显示在对话框上带有格式的消息，Params指定集成到消息串中的参数，对话框的标题即为应用程序的可执行文件名。 小结 Delphi 8 for.NET中提供了多种对话框组件用以支持Windows标准对话框，包括打开文件、保存文件、选择字体、选择颜色、打印设置、查找和替换等。对话框组件位于组件面板的Dialogs选项卡中，我们可以按其功能分为五大类： 第一类，文件对话框组件，包括：打开文件对话框组件（TOpenDialog）、保存文件对话框组件（TSaveDialog）、打开图像文件对话框（TOpenPictureDialog）、保存图像文件对话框（TSavePictureDialog），主要用于Windows应用程序中文件的打开与保存对话框的设计。 第二类，字体对话框组件（TFontDialog），用于显示一个选择字体对话框，当用户选中了一种字体并单击“确定”按钮之后，对话框将关闭并将选中的字体保存在组件的Font属性中。 第三类，颜色对话框组件（TColorDialog），用来显示标准的Windows颜色对话框，当用户选择了一种颜色并单击“确定”按钮之后，对话框将关闭，并且选中的颜色保存在组件的Color属性中。 第四类，打印类组件，包括打印对话框组件（TPrintDialog）与打印设置对话框组件（TPrinterSetupDialog）。打印对话框组件用于显示标准的Windows“打印”对话框，通过它可以向打印机发送打印作业。打印设置对话框组件用于显示一个打印设置对话框，该对话框的内容与打印驱动程序有关。 第五类，查找及替换对话框组件，包括查找对话框组件（TFindDialog）和替换对话框组件（TReplaceDialog）。通过“查找”对话框，用户可以查找文本中的某个特定字符串，调用TFindDialog组件的Execute方法可以弹出一个“查找”对话框； 通过“替换”对话框用户可以查找一个特定的字符串并将该字符串替换为另外一个字符串，该对话框在修改文本输入错误时很有用。 在Windo