delphi 消息框

在上一篇文章中，我们学习了如何使用Dialogs单元提供的MessageDlg 。

在本文中，我们将学习如何使用MessageBox，它用于向用户显示通用对话框、带有一个或多个按钮的消息。

两者的区别在于MessageDlg完全由Delphi管理，而MessageBox则是对Windows API的MessageBox函数的封装。

MessageBox 函数的声明

función TApplication.MessageBox( const Text: PChar; const Caption: PChar; Flags: Longint = MB_OK): Integer;

MessageBox 函数参数

Text : Text，是消息本身，类型为 PChar。

Caption：在PChar类型的Caption参数中，我们可以发送对话框的标题。

Flags：在 Flags 参数中，我们将指定哪些按钮将出现在对话框中。

在Flags参数中，我们可以发送以下值：

MB_ABORTRETRYIGNORE：显示三个按钮：中止、重试和忽略。

MB_OK：显示OK按钮，这也是默认的。

MB_OKCANCEL：显示按钮：OK和Cancel。

MB_RETRYCANCEL：显示两个按钮：重试和取消。

MB_YESNO：对话框显示按钮：Yes和no。

MB_YESNOCANCEL：消息框包含三个按钮：是、否和取消。

MessageBox是一个函数，它返回一个值，在本例中为Integer类型。

如果它返回值 0（零），则表示没有找到足够的内存来创建对话框。否则，它将返回以下值之一：

IDOK：用户选择了“确定”按钮。

IDCANCEL：用户选择了取消按钮。

IDABORT：用户选择的中止按钮。

IDRETRY：用户选择的重试按钮。

IDIGNORE：用户选择了忽略按钮。

IDYES：用户选择了“是”按钮。

IDNO：用户选择的按钮编号。

MessageBox 函数示例

procedure TForm1.Button1Click(Sender: TObject);

begin

  if Application.MessageBox(

   'No se pudo abrir la Tabla1 exclusiva - ¿Intentar de nuevo?',

   'Error',  MB_YESNO  ) = 6 then

   begin

     // Respuesta Yes

   end;

end;