弹出对话框窗体

对话框是用户与应用程序交换信息的最佳途径之一。使用对话框函数或过程可以调用Delphi 的内部对话框，这种方法具有操作简单及快速的特点。Delphi 提供的内部对话框有
如下两种。
第一种:信息输出对话框。包括 ShowMessage 过程、ShowMessageFmt  过程、MessageDlg函数、MessageDlgPos 函数和 CreateMessageDialog 函数.
第二种:信息输入对话框. 包括 InputBox 函数和 InputQuery 函数.

1. ShowMessage 过程

ShowMessage(<信息内容>);

说明:
( 1) ShowMessage 过程显示的对话框以应用程序的执行文件名作为标题，对话框中只含有一个OK按钮.单击该按钮对话框即关闭并返回。
(2) <信息内容>指定在对话框中出现的文本。在 <信息内容>中使用硬回车符(#13) 可以使文本换行。对话框的高度和宽度随着<信息内容>的增大而增大.

2. ShowMessageFmt 过程
 
ShowMessageFmt(<信息内容>,< 参数组>);

说明: ShowMessageFmt 过程与 ShowMessage 过程的功能 基本相同，只是参数< 信息内容>为格式化了的字符串，与   <参数组>  配合，形成显示在对话框中的信息. 例如下述代码
ShowMessageFmt('张同学%s 考了%d 分!',['外语',100]);

3. MessageDlg 函擞

调用 MessageDlg 函数，可以在屏幕的中心处显示信息对话框，其语法格式为:

<变量>= MessageDlg( < 信息内容>，<类型>，< 按钮组>，HelpCtx);

说明:
(1) < 信息内容> 是显示在对话框中的信息。
(2) < 类型>是对话框的类型 ，其取值如下.

mtWarning	弹出含有感叹号符号的警告对话框
mtError	弹出含有红色叉符号的错误对话框
mtInformation	弹出含有蓝色i符号的信息对话框
mtConfirmation	弹出含有绿色?号的确认对话框
mtCustom	弹出不含图标的一般对话框.对话框的标题是程序的名称

 

(3) <按钮组>指定对话框中出现的按钮，其中出现的按钮与参数的取值如下

mbYes	单击 Yes 按钮，函数返回 mrYes或6
mbNo	单击 No 按钮，函数返回 mrNo 或 7
mbOK	单击 OK 按钮，函数返回 mrOK 或 1
mbCancel	单击 Cancel 按钮，函数返回 mrCancel 或 2
mbHelp	help 按钮
mbAbort	单击 Abort 按钮，函数返回 mrAbort 或 3
mbRetry	单击 Retry 按钮，函数返回 mrRetry 或 4
mbIgnore	单击 Ignore 按钮，函数返回 mrIgnore 或 5
mbAll	单击 all 按钮，函数返回 mrall或8
mbNoToAll	单击 Nottoall按钮，函数返回 9
mbYesToAll	单击 Yestoall 按钮，函数返回 10

 

<按钮组>可以是组的形式，如[mbYes，mbNo] 表示对话框中出现 Yes  和 No 两个按
钮;也可以是常量的形式，如 mbokcancel :表示对话框中出现 OK  和 Cancel 两个按钮。按钮 量的含义如下

mbYesNoCancel	3 个按钮:Yes、No、Cancel
mbOKCancel	两个按钮:OK  、Cancel
mbAortRetryIgnore	3 个按钮，Abort 、Retry 、Ignore

 

(4)  HelpCtx 指定当用户单击 Help 接钮或按 Fl 键时，显示的帮助主题。
(5) MessageDlg 函数将根据用户所选择的按钮，返回相应的值 ( Word ) 类型.

 

4. MessageDlgPos 函数

调用 MessageDlgPos 函数，可以在屏幕的指定位置显示信息对话框.其语法格式如下:

<变量> =MessageDlgPos(<信息内容> ,<类型>,<按钮组>,HelpCtx,X,Y);

说明:MessageDlgPos 函数只比 MessageDlg 函数多一项功能，即它可以指定对话框的 显示位置坐标 X，Y。

 

5. CreatMessageDialog函数

与上述函数和过程不同，CreatMessageDialog 函数生成一个信息框窗体，可以在程序中多次使用方法调用。其语法格式如下:

< 变量> =CreatMessageDialog (<信息内容>,<类型>,<按钮组>);

说明:函数的参数与 MessageDlg 函数相似，只是返回一个 TForm 类型的对话框，而且并没有把它显示出来。在需要显示该对话框的时候，可以使用窗体 ShowModal 的方法把它弹出。

 

6. InputBox 函数

InputBox 函数显示一个能接受用户输入的对话框，并返回用户输入的信息。其语法格式如下: 

<变量>= InputBox (<对话框标题>，<信息内容>，< 默认内容>);

说明:
(1) <对话框标题>指定对话框的标题。
(2)<信息内容>指定在 对话框中出现的文本。在 <信息内容>中使用硬回车符可以使文本换行。对话框的高度和宽度随着 <信息内容> 的增加而增大。
(3) <默认内容>指定对话框的输入框中显示的文本，可以修改。如果用户单击"确定"按钮，输入框中的文本将返回到<变量>中;若用户单击"取消"按钮，则将  <默认内容> 返回到  <变量> 中。

 

7. InputQuery 函数

如果希望对单击 Cancel 按钮(退出事件)另作处理，可以使用 InputQuery 函数。该函 数与 InputBox 函数相似，只是返回值是一个布尔值。其语法格式如下:

<变量> = InputQuery (<对话框标题>,< 信息内容> ,<字符串变量>);

说明: InputQuery  函数与 InputBox 函数的参数相似，默认内容存放在<字符串变量> 中，可以修改。如果用户单击OK按钮，输入框中的文本将赋值到 <字符串变量>中，并且 函数返回 True; 若用户单击 Cancel  按钮，<字符串变量>中的值则保持不变，并返回 False 。