快速创建消息对话框

 

    在开发应用程序时，经常需要创建消息对话框。Ｄｅｌｐｈｉ 提供了一个通用的对话框创建函数ＭｅｓｓａｇｅＢｏｘ，它是对Ｗｉｎｄｏｗｓ—ＡＰＩ 中ＭｅｓｓａｇｅＢｏｘ 函数的封装，但使用时不需要提供窗口句柄。利用ＭｅｓｓａｇｅＢｏｘ 函数可以显示一条消息和一个或多个按钮，并且可以通过用户在对话框中的选择接收用户的响应，作为程序继续执行的依据。
  除利用通用的ＭｅｓｓａｇｅＢｏｘ 函数创建消息对话框外，Ｄｅｌｐｈｉ 还提供了自身具有特殊风格的内部函数ＭｅｓｓａｇｅＤｌｇ ，可以用来在屏幕中央快速创建丰富而美观的消息对话框。其语法格式为：ｆｕｎｃｔｉｏｎ ＭｅｓｓａｇｅＤｌｇ （ｃｏｎｓｔ Ｍｓｇ ：ｓｔｒｉｎｇ ；ＡＴｙｐｅ ：ＴＭｓｇＤｌｇＴｙｐｅ ；ＡＢｕｔｔｏｎｓ ：ＴＭｓｇＤｌｇＢｕｔｔｏｎｓ ；ＨｅｌｐＣｔｘ：Ｌｏｎｇｉｎｔ）：Ｗｏｒｄ ；
  它包括四个参数，第一个参数Ｍｓｇ是显示在对话框中的消息；第二个参数ＡＴｙｐｅ 是对话框所包含的不同图标类型。第三个参数ＡＢｕｔｔｏｎｓ 是对话框所包含的按钮数目和类型，ＡＢｕｔｔｏｎ 参数为ＴＭｓ—ｇＤｌｇＢｔｎｓ 类型，它是一个集合，因此在该集合内可以包含多个按钮。ＨｅｌｐＣｔｘ 参数定义消息框的帮助屏幕。
  当用户从对话框中选择一个按钮后，ＭｅｓｓａｇｅＤｌｇ 函数返回一个值表示此按钮被选中，其返回值与按钮的关系如下所示：
  数值                                   含义
ｍｒＮｏｎｅ                           没有选中任何按钮
ｍｒＯｋ                               选中ＯＫ 按钮
ｍｒＣａｎｃｅｌ                       选中Ｃａｎｃｅｌ 按钮
ｍｒＡｂｏｒｔ                         选中Ａｂｏｒｔ 按钮
ｍｒＲｅｔｒｙ                         选中Ｒｅｔｒｙ 按钮
ｍｒＩｇｎｏｒｅ                       选中Ｉｇｎｏｒｅ 按钮
ｎｒＹｅｓ                             选中Ｙｅｓ 按钮
ｍｒＮｏ                               选中Ｎｏ 按钮
ｍｒＡｌｌ                             选中Ａｌｌ 按钮
  下面是ＭｅｓｓａｇｅＤｌｇ 函数的一个演示程序。假设窗体上有一个按钮，当用户单击该按钮时，它使用ＭｅｓｓａｇｅＤｌｇ 函数弹出一个对话框，对话框中显示一个绿色的问号图标和一条消息，询问用户是否要退出系统，并提供一个Ｙｅｓ 按钮和一个Ｎｏ 按钮供用户选择。如果用户选择了Ｙｅｓ按钮，则ＭｅｓｓａｇｅＤｌｇ 函数再次弹出一个对话框，显示一个蓝色的消息符号和一条消息，通知用户现在退出系统，当用户选择Ｏｋ，应用程序结束。
  ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．Ｂｕｔｔｏｎ１Ｃｌｉｃｋ（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；ｂｅｇｉｎ ｉｆＭｅｓｓａｇｅＤｌｇ（＇Ｗａｎｔ ｔｏ ｅｘｉｔ Ｓｙｓｔｅｍ？＇，ｍｔ—Ｃｏｎｆｌｒｍａｔｉｏｎ ，［ｍｂＹｅｓ ，ｍｂＮｏ］，０）＝ｍｒＹｅｓｔｈｅｎｂｅｇｉｎ ＭｅｓｓａｇｅＤｌｇ（＇Ｅｘｉｔ Ｓｙｓｔｅｍｎｏｗ．＇，ｍｔＩｎ—ｆｏｒ—ｍａｔｉｏｎ ，［ｍｂＯｋ］，０）；Ｃｌｏｓｅ ；ｅｎｄ ；ｅｎｄ ；
  除上面介绍的ＭｅｓｓａｇｅＤｌｇ 函数外，Ｄｅｌｐｈｉ 还提供了以下几个创建消息对话框的函数。
  ●ＭｅｓｓａｇｅＤｌ—ｇｐｏｓ 函数，它的使用基本与ＭｅｓｓａｇｅＤｌｇ 函数相同，只是它多了两个参数Ｘ 和Ｙ ，可以在用户指定的位置显示对话框。
  ●ＳｈｏｗＭｅｓｓａｇｅ 函数，它只带有一个字符串参数Ｍｓｇ ，用于显示一个带ＯＫ 按钮的对话框，对话框的消息为Ｍｓｇ ，标题为应用程序的可执行文件名。如：
  ●ＳｈｏｗＭｅｓｓａｇｅ（＇Ｐｕｓｈｔｈｉｓ ｂｕｔｔｏｎ＇）它实际上为下列Ｍｅｓ—ｓａｇｅＤｌｇ 函数的简写形式：ＭｅｓｓａｇｅＤｌｇ（＇Ｐｕｓｈｔｈｉｓ ｂｕｔｔｏｎ＇，ｍｔＣｕｓ—ｔｏｍ，［ｍｂＯＫ］，０）
  ●ＳｈｏｗＭｅｓｓａｇｅＰｏｓ 函数，它带有一个字符串参数Ｍｓｇ 和指定对话框显示位置的参数Ｘ 和Ｙ ，用于在某位置显示一个带ＯＫ 按钮的对话框，对话框的消息为Ｍｓｇ ，标题为应用程序的可执行文件名。如：ＳｈｏｗＭｅｓｓａｇｅＰｏｓ（＇Ｐｕｓｈｔｈｉｓ ｂｕｔｔｏｎ＇，１２５，２５）（河北吴泽平）