Delphi中MessageBox用法

Delphi中MessageBox用法

转载于网络

在delphi中经常要用到一个提示对话框，根据用户选择执行不同的命令，MessageBox就是常用的对话框，它不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。

1、函数原型及参数

   function MessageBox(hWnd: HWND; Text, Caption: PChar; Type: Word): Integer;

   hWnd：对话框父窗口句柄，对话框显示在Delphi窗体内，可使用窗体的Handle属性，否则可用0，使其直接作为桌面窗口的子窗口。

   Text：欲显示的信息字符串。

   Caption：对话框标题字符串。

   Type：对话框类型常量。

该函数的返回值为整数，用于对话框按钮的识别。

2、类型常量

   对话框的类型常量可由按钮组合、缺省按钮、显示图标、运行模式四种常量组合而成。

   (1)按钮组合常量

   MB_OK =  $00000000                   //一个确定按钮 默认

   MB_OKCANCEL =  $00000001           //一个确定按钮，一个取消按钮

   MB_ABORTRETRYIGNORE = $00000002;  //一个异常终止按钮，一个重试按钮，一个忽略按钮

   MB_YESNOCANCEL = $00000003;        //一个是按钮，一个否按钮，一个取消按钮

   MB_YESNO = $00000004;                 //一个是按钮，一个否按钮

   MB_RETRYCANCEL = $00000005;         //一个重试按钮，一个取消按钮

   

   (2)缺省按钮常量

   MB_DEFBUTTON1 = $00000000;           //第一个按钮为缺省按钮

   MB_DEFBUTTON2 = $00000100;           //第二个按钮为缺省按钮

   MB_DEFBUTTON3 = $00000200;           //第三个按钮为缺省按钮

   MB_DEFBUTTON4 = $00000300;           //第四个按钮为缺省按钮

   (3)图标常量

   MB_ICONHAND = $00000010;                 //“×”号图标

   MB_ICONQUESTION = $00000020;             //“？”号图标

   MB_ICONEXCLAMATION = $00000030;         //“！”号图标

   MB_ICONASTERISK = $00000040;              //“i”图标

   MB_USERICON = $00000080;                  //用户图标

   MB_ICONWARNING = MB_ICONEXCLAMATION;  //“！”号图标

   MB_ICONERROR = MB_ICONHAND;             //“×”号图标

   MB_ICONINFORMATION = MB_ICONASTERISK;   //“i”图标

   MB_ICONSTOP = MB_ICONHAND;                //“×”号图标

   (4)运行模式常量

   MB_APPLMODAL = $00000000;         //应用程序模式，在未结束对话框前也能切换到另一应用程序

   MB_SYSTEMMODAL = $00001000;       //系统模式，必须结束对话框后，才能做其他操作

   MB_TASKMODAL = $00002000;         //任务模式，在未结束对话框前也能切换到另一应用程序

   MB_HELP = $00004000;                 //Help Button

3、函数返回值

   0                        //对话框建立失败

   IdOk = 1                 //按确定按钮

   IDCancel = 2             //按取消按钮

   IDAbout = 3              //按异常终止按钮

   IDRetry = 4              //按重试按钮

   IDIgnore = 5             //按忽略按钮

   IDYes = 6                //按是按钮

   IDNo = 7                 //按否按钮 

应用实例：

Application.MessageBox('你确定此操作吗？','询问',MB_OK);//只有一个确定按钮

MessageBox(0,'你确定此操作吗？','询问',MB_OK); //只有一个确定按钮

MessageBox(0,'你确定此操作吗？','询问',1); //确定取消(如果不带图标，也可以用数字)

MessageBox(0,'你确定此操作吗？','询问',MB_OKCANCEL);//确定取消二个按钮

MessageBox(0,'你确定此操作吗？','询问',MB_OKCANCEL+MB_ICONQUESTION);//确定取消，带？号图标

MessageBox(0,'你确定此操作吗？','询问',MB_OKCANCEL+MB_ICONQUESTION+MB_DEFBUTTON2);//确定取消，带？号图标，并把第二个按钮“取消”设为默认按钮！

如果想判断用户选择了那个按钮可以这样

var

  x:integer;

begin

x:=MessageBox(0,'你确定此操作吗？','询问',MB_OKCANCEL);

end;

判断时可以是if x=1 then ..或if x=idok then...