Delphi MessageBox 使用方法下载

weixin_39820535 2019-07-16 10:00:29

Delphi MessageBox 使用的用法
相关下载链接：//download.csdn.net/download/viceds/3284686?utm_source=bbsseo

...全文

4 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

Delphi MessageBox 使用的用法

Delphi中MessageBox用法消息框是个很常用的控件，属性比较多，本文列出了它的一些常用方法，及指出了它的一些应用场合。 1.最简单用法,不带图形 MessageBox(0,'不同意','提示',MB_OK); MessageBox(0,'不同意','提示',MB_OKCANCEL ); 2.警告对话框: MessageBox(0,'密码不能为空,请务必输入密码','警告',MB_ICONEXCLAMATION); 3.提示信息对话框: MessageBox(0,'密码不能为空,请务必输入密码','提示',MB_ICONASTERISK and MB_ICONINFORMATION); 4.复杂用法: MessageBox(Handle, PChar('进程' + Listview1.Selected.caption +'不能被结束!'), PChar('提示'), MB_ICONEXCLAMATION); 附常用属性系统默认图标，可在消息框上显示 X错误 MB_ICONHAND, MB_ICONSTOP, and MB_ICONERROR ?询问 MB_ICONQUESTION !警告 MB_ICONEXCLAMATION and MB_ICONWARNING i信息 MB_ICONASTERISK and MB_ICONINFORMATION 按钮的形式 MB_OK 默认 MB_OKCANCEL 确定取消 MB_YESNO 是否 MB_YESNOCANCEL 是否取消返回值 IDCANCEL 取消被选 IDNO 否被选 IDOK 确定被选 IDYES 是被选

个人总结的关于MessageBox函数的使用，方便那些使用Delphi7开发程序的用户，这下可以完全替代直接使用Showmessage（）函数而产生的描述不全面的诟病。

应用程序在运行当中经常要输出各种即时信息，Delphi提供了多种形式的消息对话框可以满足这些要求，尽管可以使用各种标志定制一个消息框，但仍不能将自己的图标放在消息框内，也不能修改其标准行为去创建自己的消息框，其实通过调用函数MessageBoxIndirect()就很容易绕过这些明确的限制，这是一个功能很强、易于使用的函数。 ---- 此函数在WINDOWS单元里面，文件位于Delphi安装路径Source\Rtl\Win里面，需要指出的是，Delphi的原代码中它的返回值类型是BOOL型，而实质上它的返回值应为Integer。修改方法：在WINDOWS单元中找到此函数后，把BOOL改为Integer，共有三处要修改，然后在Delphi安装路径Lib中找到WINDOWS.DCU文件，把它改名或者删除，并把修改后的WINDOWS.PAS源码复制到Lib路径中。 ---- 该函数只有一个参数，类型是TMsgBoxParams，它的结构及说明如下： tagMSGBOXPARAMSA = packed record cbSize: UINT; {数据结构的长度} hwndOwner: HWND; {所有者窗口句柄} hInstance: HINST; {应用程序实例句柄} lpszText: PAnsiChar; {在消息框客户区内显示的文本} lpszCaption: PAnsiChar; {标题栏文本} dwStyle: DWORD; {确定消息框内按钮和图符的数量及种类的MB_标志} lpszIcon: PAnsiChar; {从资源文件中取出的一个图符资源的名字} dwContextHelpId: DWORD; {指定帮助文本的ID号} lpfnMsgBoxCallback: TPRMsgBoxCallback; {当用户按下HELP按钮时调用的一个回调函数} dwLanguageId: DWORD; {显示在按钮内文本的语言定义} end; ---- 由于直接使用此函数比较复杂，我们可以自定义一个函数来封装此函数，对它进行简化,在用法上尽量做到与Delphi的消息框相一致，自定义函数代码如下： function MessageEx (lText,lCaption:PChar; lStyle:DWord;lIcon:PChar):Integer; var Msg:TMsgBoxParams; begin Msg.cbSize:=Sizeof(Msg); Msg.hwndOwner:=Application.Handle; Msg.hInstance:=hinstance; Msg.lpszText:=lText; Msg.lpszCaption:=lCaption; Msg.dwStyle:=lStyle; Msg.lpszIcon:=lIcon; Msg.dwContextHelpId:=1; Msg.lpfnMsgBoxCallback:=nil; Msg.dwLanguageId:=LANG_NEUTRAL; Result:=MessageBoxIndirect(Msg); end; ---- 要想在消息框中显示自己的图标，先准备一个装有图标的资源文件，加在程序中，如{$R c:\mydir\myres.res}，在lStyle参数里除了所需的MB_标志外还要加上MB_USERICON标志，并在最后一个参数里写上资源文件中图标的名字，如果不想使用自定义的图标，可将最后一个参数设为nil。函数的其它用法和返回值的处理与Delphi提供的消息框一样。 ---- 强烈建议把自定义函数放在一个单元文件里，并把此文件放在Delphi的搜索路径如Lib下，以后只需要把此单元加在uses语句里，就可以直接使用自定义函数，非常方便。

worck whit messageBox delphi

下载资源悬赏专区

12,857

社区成员

12,398,435

社区内容

发帖

与我相关

我的任务

其他技术论坛（原bbs）

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章