DBMNG数据库管理与应用

书籍是全世界的营养品。生活里没有书籍,就好像没有阳光;智慧里没有书籍,就好像鸟儿没有翅膀。
当前位置:首页 > 经验分享 > Delphi

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)图标常量免费资源收集网(http://www.freezq.cn
   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...

本站文章内容,部分来自于互联网,若侵犯了您的权益,请致邮件chuanghui423#sohu.com(请将#换为@)联系,我们会尽快核实后删除。
Copyright © 2006-2023 DBMNG.COM All Rights Reserved. Powered by DEVSOARTECH            豫ICP备11002312号-2

豫公网安备 41010502002439号