| 查看: 775 | 回复: 1 | |||
[交流]
【转帖】Delphi中MessageBox用法 已有1人参与
|
|
转载于网络 在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... |
回复此楼» 猜你喜欢
河北省自然科学基金
已经有8人回复
-
西安交大新媒学院副院长用撤稿论文结题
已经有5人回复
-
论文撤稿了
已经有5人回复
-
某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！
已经有5人回复
-
26/27申博自荐
已经有9人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有7人回复
-
揭秘青基评审内幕：几个A才能顺利中标
已经有4人回复
-
青B发送上会通知了吗
已经有7人回复
-
博士申请
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求问 wherein 的用法（回帖者必有谢）
已经有1人回复
- 各种diamond用法集锦
已经有421人回复
- 关于respectively的用法
已经有4人回复
- 【求助】谁能告诉我PostMessage和SendMessage的具体用法啊？
已经有6人回复
- 【转帖】delphi语法进阶
已经有3人回复
- 有关PPT的用法技巧1
已经有5人回复
- 【求助】硼氢化钠、氰基硼氢化钠、三乙酰氧基硼氢化钠用法的区别！
已经有5人回复
- 科研工具SciFinder® Scholar用法介绍
已经有6人回复
2楼2013-12-10 11:03:46
10