Delphi程序设计及实验指导（第二版） -张景安 第7章 对话框设计.ppt

7.2 模式对话框与无模式对话框 【例7-4】在例7-3的基础上设计无模式对话框。要求在模式对话框界面上单击“进入”按钮后，进入无模式对话框。 （1）设计无模式对话框。打开工程LoginPrj，选择File→New→VCL Form，创建一个新的窗体， （2）设置窗体及其组件的属性值。 组件类型 组件名 属性名 属性值 窗体（TForm） TestForm BorderStyle BsDialog Caption 考试系统 标签（TLabel） Label1 Caption 操作题 按钮（TButton） BtnPre Caption 上一题 BtnNext Caption 下一题 BtnQuit Caption 退出 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属性中。 第四类，打印类组件，包括打印对话框组件（TPrintDialo