Delphi 的信息框相关函数
//ShowMessage:
begin ShowMessage('提示内容'); {标题默认工程名, 如: Proect1}
Application.Title := '警告'; {如果修改工程标题...}
ShowMessage('提示内容'); {标题是'警告'}
ShowMessage('第一行' + #13#10 + '第二行'); {提示信息换行}
ShowMessage('第一行'#13'第二行'); {也可以}
end;
//InputBox:
var
s: string;
begin
s := InputBox('标题','提示信息','默认输入');
ShowMessage(s); //显示输入的内容
end;
//InputQuery:
var
s: string;
begin
InputQuery('标题','提示信息',s); //为字符串变量 S 输入值, 返回布尔型
ShowMessage(s); //显示输入的内容
end;
//MessageBox:
var
i: Integer;
begin
i := MessageBox(0,'提示内容','标题',mrOk); //第一个参数一般用 Self.Handle, 0代表桌面
//可选参数
//mrNone
//mrOk
//mrCancel
//mrAbort
//mrRetry
//mrIgnore
//mrYes
//mrNo
//mrAll
//mrNoToAll
//mrYesToAll
ShowMessage(IntToStr(i));
//还可以组合第四个参数以调用不同的图标:
MessageBox(0,'提示内容','标题',mrOk + MB_ICONHAND);
//MB_ICONHAND
//MB_ICONQUESTION
//MB_ICONEXCLAMATION
//MB_ICONASTERISK
//MB_USERICON
//MB_ICONWARNING
//MB_ICONERROR
//MB_ICONINFORMATION
//MB_ICONSTOP
end;
//后来补充, 还是应该使用 API 的原有参数更好些:
{可选参数或它们的组合}
MB_OK = $00000000;
MB_OKCANCEL = $00000001;
MB_ABORTRETRYIGNORE = $00000002;
MB_YESNOCANCEL = $00000003;
MB_YESNO = $00000004;
MB_RETRYCANCEL = $00000005;
MB_ICONHAND = $00000010;
MB_ICONQUESTION = $00000020;
MB_ICONEXCLAMATION = $00000030;
MB_ICONASTERISK = $00000040;
MB_USERICON = $00000080;
MB_ICONWARNING = MB_ICONEXCLAMATION;
MB_ICONERROR = MB_ICONHAND;
MB_ICONINFORMATION = MB_ICONASTERISK;
MB_ICONSTOP = MB_ICONHAND;
MB_DEFBUTTON1 = $00000000;
MB_DEFBUTTON2 = $00000100;
MB_DEFBUTTON3 = $00000200;
MB_DEFBUTTON4 = $00000300;
MB_APPLMODAL = $00000000;
MB_SYSTEMMODAL = $00001000;
MB_TASKMODAL = $00002000;
MB_HELP = $00004000;
MB_NOFOCUS = $00008000;
MB_SETFOREGROUND = $00010000;
MB_DEFAULT_DESKTOP_ONLY = $00020000;
MB_TOPMOST = $00040000;
MB_RIGHT = $00080000;
MB_RTLREADING = $00100000;
MB_SERVICE_NOTIFICATION = $00200000;
MB_SERVICE_NOTIFICATION_NT3X = $00040000;
MB_TYPEMASK = $0000000F;
MB_ICONMASK = $000000F0;
MB_DEFMASK = $00000F00;
MB_MODEMASK = $00003000;
MB_MISCMASK = $0000C000;
{可能的返回值}
IDOK = 1; ID_OK = IDOK;
IDCANCEL = 2; ID_CANCEL = IDCANCEL;
IDABORT = 3; ID_ABORT = IDABORT;
IDRETRY = 4; ID_RETRY = IDRETRY;
IDIGNORE = 5; ID_IGNORE = IDIGNORE;
IDYES = 6; ID_YES = IDYES;
IDNO = 7; ID_NO = IDNO;
IDCLOSE = 8; ID_CLOSE = IDCLOSE;
IDHELP = 9; ID_HELP = IDHELP;
IDTRYAGAIN = 10;
IDCONTINUE = 11;
//MessageDlg:
var
i: Integer;
begin
MessageDlg('提示信息',mtWarning,mbYesNo,0);
//第二个参数调用不同的图标:
//mtWarning
//mtError
//mtInformation
//mtConfirmation
//mtCustom
//第三个参数调用不同的按钮:
//mbYesNo = [mbYes, mbNo];
//mbYesNoCancel = [mbYes, mbNo, mbCancel];
//mbYesAllNoAllCancel = [mbYes, mbYesToAll, mbNo, mbNoToAll, mbCancel];
//mbOKCancel = [mbOK, mbCancel];
//mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];
//mbAbortIgnore = [mbAbort, mbIgnore];
//可以直接输入集合元素,譬如: MessageDlg('aaa',mtWarning,[mbYes],1);
//第四个参数帮助ID, 没有添0
//还有重载的第5个参数是设定默认按钮
//如果要本地话显示需要修改源文件, 一般可以用 MessageBox 代替
end;
//MessageDlgPos:
begin
MessageDlgPos('提示信息',mtCustom,mbYesNoCancel,0,400,100);
//比 MessageDlg 多出两个参数来控制显示位置
end;
转载于:https://www.cnblogs.com/MaxWoods/archive/2011/09/28/2193719.html
Delphi 的信息框相关函数相关推荐
- Delphi 运行时错误信息表
Delphi 运行时错误信息表 错误信息形式为: Run-time error nnn at xxxx; 其中nnn是运行时的错误编号; xxxx是运行时的错误地址. 编号 说明 I/O错 ...
- layer弹出信息框API
layer API之键值(仅在需要时配置,未配置的会用默认) 键 : 值 描述 skin : 0 层的皮肤编号,值为整数型.目前默认只提供一种皮肤,当你按照样式规则新增皮肤时(详见skin/layer ...
- 弹窗php整人_[整人小程序] 超级信息框(无限弹窗++)
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 '貌似刚才缩进空格被吞了,再发一次 Set FSO = createobject("scripting.filesystemobject&quo ...
- layer的msg函数_layer弹出信息框API
键 : 值 描述 skin : 0 层的皮肤编号,值为整数型.目前默认只提供一种皮肤,当你按照样式规则新增皮肤时(详见skin/layer.css),你可配置该参数. type : 0, 层的类型.0 ...
- cesium查询arcgis/wms服务并实现自定义信息框,分页展示查询要素
想实现自定义信息框,首先要在cesium初始化时,将默认的infoBox设置为false,因此要自己手动实现查询功能. 1. 监听点击事件,对arcgis/wms服务进行查询 具体实现代码如下: co ...
- HTML配合js制作弹框,弹出信息框展示后台内容
最近,应公司要求需要制作一个弹出框,需求是在鼠标停留在字段上,就会弹出一个信息框弹出从后台查出来的内容.因为本猿是后端开发,对于前端的东西是半桶水,一知半解,它认识我我不认识它.所以在此记录一下Dem ...
- [UnityUINGU][UGUI]如何新建一个像《守望先锋》消息的信息框
<守望先锋>消息的信息框,微X的聊天框也可以. 使用Unity的NGUI,就必须用到UI 中的图片自己适应 文本的大小. 也就是说调整 文本的大小,或者是文本内的文字的行数,改变 对应的背 ...
- JSAPI 高德地图应用--车辆的轨迹回放、并附有信息框(上)
关于车辆的轨迹回放功能方法,主要分为两种,一种是通过标记点moveAlong()的方法,另一种是PathSimplifier是一个轨迹展示组件:两种方法,各有各的优缺点,前者是比较简单,但是不能在中途 ...
- JSAPI 高德地图应用--车辆的轨迹回放、并附有信息框(下)
上篇文章提到了车辆的轨迹回放主要有两个方案:一种是通过标记点moveAlong()的方法,另一种是PathSimplifier是一个轨迹展示组件:上篇使用了标记点的方法,这篇就来使用PathSimpl ...
最新文章
- linux数组删除数据,JavaScript在数组的循环中删除元素
- 使用jquery的load方法设计动态加载,并解决被加载页面JavaScript失效问题
- python3 实现 php serialize 函数
- Snchronize对象锁同步
- 根据地址形式分辨scala的一维数组和二维数组
- 由于找不到iUtils.dll,无法继续执行代码。重新安装程序可能会解决此问题。
- Hive 使用SQL统计出每个用户的累积访问次数
- slack 聊天机器人_使用Node.js和Symanto的Text Analytics API在Slack中创建情感机器人
- 系统架构设计——使用结构图分解复杂系统
- goole服务框架Android ID,GSF ID KEY(谷歌服務框架ID)作爲Android設備唯一標識符
- addClass函数
- 数据分析驱动数字化企业转型
- 简单的html图片上传工具
- 究竟什么时候该看哪个后视镜?老司机用经验告诉你答案
- Git——git的简单使用以及连接gitee的远程仓库[经验 y.2]
- 腾猫首放金鸡百花:互联网和电影的十年
- 全国青少年造型艺术作品大赛作品征集
- Moonbeam社区论坛:一个致力于社区讨论、提案、和反馈的空间
- javax.net.ssl.SSLPeerUnverifiedException: Certificate for IP doesn't match common name of t
- SONY VEGAS