深入了解Delphi 7中的四种消息框

????? Delphi中平常使用的消息框有四种形式，有ShowMessage、MessageDlg、Application.MessageBox、MessageBox。下面来深入了解下这四种形式的实现和使用。
1.ShowMessage 显示一个带"OK"按钮的消息框
? 使用这个函数可以显示一个简单的带"OK"按钮的消息框，消息框的标题是应用程序的标题名，参数Msg字符串显示在消息框上。其源码如下：

可以看到它调用了ShowMessagePos函数，我们观察下面的代码，发现跟ShowMessage很有关系，源码如下：

ShowMessageFmt跟ShowMessage类似，只是ShowMessageFmt参数是带格式化的字符串。而它们最终都调用ShowMessagePos，这是在指定的位置显示消息框，显示出来的效果还是跟ShowMessage一样，其参数X、Y坐标为-1的话表示出现在屏幕中间，其实现调用了MessageDlgPos，这跟MessageDlg又有什么关系，先看下面介绍MessageDlg。
2.MessageDlg 在屏幕中间显示带返回值的可自定义消息框
? 使用这个函数可以显示一个带图标、多种组合按钮、帮助ID，并且有返回值的消息框，其第一个参数Msg是消息框的显示内容，第二个参数DlgType为消息框类型，以图标形式显示在消息框左侧，其取值范围如下：

第三个参数Buttons是出现在消息框上的按钮，可以是单个按钮，也可以是组合按钮，其取值范围如下：

也可以是如下的组合按钮：

第四个参数HelpCtx是帮助ID，是在消息框按“Help”按钮或按F1出现的帮助文档，若无需帮助的话，设置为0即可。返回值是用户按下了消息框上的按钮，所返回的值，其值与消息框上的各种按钮分别对应，如下所示：

下面是MessageDlg源码：

发现其下面还有两个类似的函数，它们源码如下：

在这里我们看到了MessageDlgPos函数，这就是ShowMessage最终调用的函数，而MessageDlgPos与MessageDlg都调用了MessageDlgPosHelp函数，MessageDlgPosHelp是显示一个带帮助文件的消息框，其实现是调用了CreateMessageDialog函数，其函数原型如下：

于是乎，我们可以直接使用CreateMessageDialog来创建一个消息框，当我们在开发程序的时候，经常需要使用某些消息框，那么用这个来创建，然后用ShowMoDal来显示和获取返回值即可。继续观察CreateMessageDialog函数，可以发现它是使用TMessageForm创建的。
3.Application.MessageBox 用户自定义消息框
? 这个函数是Delphi应用程序类对Windows API的消息框函数MessageBox的封装，使其方便调用。其第一个参数是消息框内容文本，第二个参数是消息框标题，第三个参数是标识，指定消息框按钮、图标、默认按钮等等。其函数原型如下：

参看其实现源码，我们可以发现它的具体实现：

明白它是调用Windows API的MessageBox函数，把自身句柄传递进去。而第三个参数Flags等下面介绍Windows.MessageBox时一起讲解。
4.MessageBox 系统API消息框函数
? 这个函数包含在Windows单元下，完整的函数名是Windows.MessageBox，是系统API函数，不仅可以自定义消息内容和标题，还有自定义按钮、图标、默认按钮、扩展风格等等。其函数原型如下：

其第一个参数为标识消息框的所有者，如果这个参数是0的话，则消息框没有父窗口，与应用程序同等级。第二三个参数不再介绍。第四个参数为标识参数，各种自定义效果风格皆在此设置。下面详细介绍：
自定义出现的按钮：

自定义出现的图标：

自定义默认焦点的按钮：

自定义消息框显示模式：

此外，还有一些其他标识：

当没有足够内存创建消息框的时候，返回值为0，否则正常返回值如下：

总结：ShowMessage、MessageDlg是TMessageForm消息窗体类创建的，而Application.MessageBox、MessageBox实质都是Windows API函数MessageBox。相比之下，后两者的可自定义性更强一些。下面举例下使用方法：

运行结果如下：