Application.messagebox对话框样式

最新推荐文章于 2021-08-18 09:06:22 发布

转载最新推荐文章于 2021-08-18 09:06:22 发布 · 82 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/chenmfly/p/4551358.html

本文介绍了使用Delphi创建不同类型的消息框的方法，包括警告、疑问、错误提示等，并提供了具体的代码示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

if Application.MessageBox('删除不能恢复，确认删除吗？', '删除提示', MB_OKCANCEL + MB_ICONQUESTION)=mrOk then
begin
　　ShowMessage('你选择的OK！');
end;

1．   警告信息框
Application.MessageBox("警告信息框","警告信息框",MB_ICONWARNING);
2．疑问信息框
Application.MessageBox("疑问信息框","疑问信息框",MB_ICONQUESTION);
3．错误提示框
Application.MessageBox("错误信息框","错误信息框",MB_IConERROR);
4．提示信息框
Application.MessageBox("提示信息框","提示信息框",MB_ICONASTERISK);
5．说明信息框
Application.MessageBox("说明信息框","说明信息框",MB_HELP);
6．提示信息框
Application.MessageBox("提示信息框","提示信息框",MB_OK);
7．确认信息框
Application.MessageBox("确认信息框","确认信息框",MB_OKCANCEL);
8．重试信息框
Application.MessageBox("重试信息框","重试信息框",MB_RETRYCANCEL);
9．是否信息框
Application.MessageBox("是否信息框","是否信息框",MB_YESNO);
10．是否取消信息框
Application.MessageBox("是否取消信息框","是否取消信息框",MB_YESNOCANCEL);