教程-MessageBox 使用方法
对应对象:TApplication
声明:function MessageBox(Text,Caption:PChar;Flags:Word):Integer;
功能:MessageBox方法可以显示一个对话框,在对话框中包含了一条信息和一个及多个按钮。MessageBox方法是TApplication中的一个经常使用的方法,它包含了Windows
API
MessageBox函数。使用过Windows的朋友都看到过MessageBox,可以使用VB或Delphi来创建它们。以下是Flags允许的一些值的组合。
标 记 值 意 义
MB_ABORTRETRYIGNORE 出现3个按钮:Abort,Retry,Ignore。
MB_APPLMODAL
对于应用程序的信息框是模式的,即当返回到应用程序之前用户必须单击一个键,MB_APPLMODAL由缺少值设置,对应的行为可以使用MB_SYSTEMMODAL或MB_TASKMODAL来改变。
MB_DEFAULT_DESKTOP_ONLY 信息框必须出现在缺少的桌面上,这个桌面是用户注册的桌面。
MB_DEFBUTTON1 信息框的第一个按钮是缺省的按钮。
MB_DEFBUTTON2 信息框的第二个按钮是缺省的按钮。
MB_DEFBUTTON3 信息框的第三个按钮是缺省的按钮。
MB_DEFBUTTON4 信息框的第四个按钮是缺省的按钮。
MB_HELP 在信息框上添加一个Help按钮,当按F1或此按钮时可以引起Help事件。
MB_ICONASTERISK 与MB_ICONFORMATION的相同。
MB_ICONERROR 与MB_ICONHAND相同。
MB_ICONEXCLAMATION 出现一个感叹号的图标。
MB_ICONHAND 与MB_ICONSTOP相同。
MB_ICONINFORMATION 出现一个小写的i图标。
MB_ICONQUESTION 出现一个问号?的图标。
MB_ICONSTOP 出现一个红色的叉子×的图标。
MB_ICONWARNING 与MB_ICONEXCLAMATION的相同。
MB_OK 信息框出现一个按钮,按钮标题是OK。
MB_OKCANCEL 信息框出现两个按钮,按钮标题是OK和Cancel。
MB_RETRYCANCEL 信息框出现两个按钮,按钮标题是Retry和Cancel。
MB_RIGHT 信息框内的信息是向右对齐的。
MB_TRLREADING 信息框内的文字对于Hebrew和Arabic系统来说是向右对齐的。
MB_SERVICE_NOTIFICATION 允许信息框在一个没有被注册的桌面上显示。
MB_SETFORMEGROUND 使信息框成为当前的窗口。
MB_SYSTEMMODAL 此信息框不允许用户在它被关闭之前进行任何的其他操作,这个标记可以为十分重要的信息进行保留。
MB_TASKMODAL 与MB_APPLMODAL相同。
MB_YESNO 信息框有两个按钮,按钮标题是Yes和No。
MB_YESNOCANCEL 信息框内有三个按钮,按钮标题是Yes,No和Canel。
对于此属性的返回值类型可见下表:
命名的返回值 返回数值 意 义
IDABORT 0 没有足够的内存空间来显示信息框。
3 用户选择了Abort按钮功能。
IDCANCEL 2 用户选择了Cancel按钮功能。
IDIGNORE 5 用户选择了Ignore按钮功能。
IDNO 7 用户选择了No按钮功能。
IDOK 1 用户选择了OK按钮功能。
IDRETRY 4 用户选择了Retry按钮功能。
IDYES 6 用户选择了Yes按钮功能。
例子:
//Close the application
procedure TForm1.mnuFileQuitClick(Sender:TObject);
begin
if Application.MessageBox(‘Do you really want to quit?’,’Quit?’, MB_YESNO+MB_ICONHAND)=IDYES then
Close;
end;
教程-MessageBox 使用方法的更多相关文章
- 百度UEditor编辑器使用教程与使用方法
我们在做网站的时候,网站后台系统一般都会用到web编辑器,今天笔者就给大家推荐一款百度UEditor编辑器.关于这款百度UEditor编辑器官网上也有简单的教程,不过看着比较费劲,今天笔者就跟大家分享 ...
- Intellij idea 系列教程之破解方法
Intellij idea 系列教程之破解方法 Intellij idea 系列教程目录(https://www.cnblogs.com/binarylei/p/10347600.html) 到这个地 ...
- Swift2.0语言教程之类的方法
Swift2.0语言教程之类的方法 Swift2.0语言的方法 方法其实就是函数,只不过它被定义在了类中.在Swift中,根据被使用的方式不同,方法分为了实例方法和类型方法两种.这两种方法的定义也和O ...
- Xamarin XAML语言教程通过ProgressTo方法对进度条设置
Xamarin XAML语言教程通过ProgressTo方法对进度条设置 在ProgressBar中定义了一个ProgressTo方法,此方法也可以用来对进度条当前的进行进行设置,ProgressTo ...
- IntelliJ IDEA安装教程及使用方法
IntelliJ IDEA安装教程及使用方法 首先,需要去下载IDEA,直接在百度搜索IntelliJ IDEA,然后找到官网点击进入 进入官网,选择[Download],点击进入,选择自己的操作系统 ...
- C#中MessageBox使用方法大全(附效果图)
我们在程序中常常会用到MessageBox. MessageBox.Show()共同拥有21中重载方法.现将其常见使用方法总结例如以下: 1.MessageBox.Show("Hello~~ ...
- Qt5.5.1和Qt5.3.2编译OCI驱动教程及验证方法
我们都知道oracle数据库的强大,并且好多企业或者教学用到数据库时都会推荐使用.但是Qt因为版权问题没有封装oracle数据库专用驱动,网上也有一大堆说法和教程,但是或多或少的都有问题.下面废话不多 ...
- PyCharm 2020.1专业版安装教程及破解方法
一.安装第一步下载 版本一定得是:2020.1 其他版本下载地址:https://www.jetbrains.com/pycharm/download/other.html 安装不多说了: 二.破解 ...
- SOAPUI使用教程-REST源和方法
1. 添加REST服务.源和方法 一个REST服务包含任意数量相应的路径的可用源. 资源本身可以有尽可能多的子资源;子资源路径和所有的父路径链接起来. 首先创建一个新的REST服务在您的项目. 在导航 ...
随机推荐
- 洛谷 P1541 乌龟棋
题目背景 小明过生日的时候,爸爸送给他一副乌龟棋当作礼物. 题目描述 乌龟棋的棋盘是一行N个格子,每个格子上一个分数(非负整数).棋盘第1格是唯一的起点,第N格是终点,游戏要求玩家控制一个乌龟棋子从起 ...
- 敏捷开发的价值观(转自MBAlib)
敏捷开发的价值观 实际上敏捷开发运动在数年前就开始了,但它正式开始的标志是2001年2月的“敏捷宣言”(Agile Manifesto),这项宣言是由17位当时称之为“轻量级方法学家”所编写签署的,他 ...
- iOS runloop 资源汇总-b
RunLoop 是 iOS 和 OSX 开发中非常基础的一个概念,这篇文章将从 CFRunLoop 的源码入手,介绍 RunLoop 的概念以及底层实现原理.之后会介绍一下在 iOS 中,苹果是如何利 ...
- How To Call Stored Procedure In Hibernate
How To Call Stored Procedure In Hibernate In this tutorial, you will learn how to call a store proce ...
- vs2012+opencv2.4.7 实现单张人脸识别
参考:http://blog.sina.com.cn/s/blog_593c85f20100ncnj.html OpenCV的库中带有检测正面人脸的 Haar迭代算法Haar Cascade Face ...
- 【HDOJ】2045 不容易系列之(3)—— LELE的RPG难题
着色问题,递推,当超过3个块时,规律明显,此时可以是n-2的头尾重复+与头尾不同颜色,也可以是n-1+与头尾均不相同眼色情况.经典递推.注意long long. #include <stdio. ...
- NOI 2014 感想
NOI2014结束了,我卡线登上了领奖台... 这是我第一次NOI,我觉得我收获了很多东西: 1.考前心态不重要,重要的是实力 真正考试的时候是顾不得想其他事情的 2.测试数据是人出的!不是随机的!不 ...
- js模拟Map对象,实现key---value
js模拟Map对象,实现key---value 根据java中map的属性,实现key----value保存 function Map() { var struct = function (key, ...
- 调试UnhandledExceptionFilter
kernel32!UnhandledExceptionFilter通过判断当前进程是否附加了调试器,如果附加,就把异常交给调试器,如果没有,就把异常交给进程的UnhandledExceptionFil ...
- Sharepoint数据库存储过程
转:http://dugan.bokee.com/630497.html Databases Table Stored Procedures(数据库表存储过程) Globals Table Store ...