1. 警告信息框 MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING);

2.疑问信息框 MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION);

3.错误提示框 MessageBox(Handle,'错误信息框','错误信息框',MB_ICONERROR);

4.提示信息框 MessageBox(Handle,'提示信息框','提示信息框',MB_ICONASTERISK);

5.说明信息框 MessageBox(Handle,'说明信息框','说明信息框',MB_HELP);

6.提示信息框 MessageBox(Handle,'提示信息框','提示信息框',MB_OK);

7.确认信息框 MessageBox(Handle,'确认信息框','确认信息框',MB_OKCANCEL);

8.重试信息框 MessageBox(Handle,'重试信息框','重试信息框',MB_RETRYCANCEL);

9.是否信息框 Application.MessageBox(Handle,'是否信息框','是否信息框',MB_YESNO);

10.是否取消信息框 Application.MessageBox(Handle,'是否取消信息框','是否取消信息框',MB_YESNOCANCEL);

11 简单提示信息框 ShowMessage('这个就是ShowMessage函数生成的信息提示框!');

_____________________________________________________________________________

1. 警告信息框 MessageBox(Handle,'程序超出内存。','错误',MB_OK+MB_ICONERROR)

MessageBox(0, '配置文件成功', '提示', mb_iconinformation

-----------------------------------

以下是详细说明

//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;

MessageBox对话框 输入控件的   ImeName属性把输入法去掉就默认为英文输入了

 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)图标常量
 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        //按否按钮

例子:messagebox(0,'没有选择播放类型','错误',MB_ICONEXCLAMATION );

--Application.MessageBox('MessageBox','警告',MB_ICONWARNING+MB_YesNo);
--MessageBox(Form1.Handle,'MessageBox','提示',MB_ICONINFORMATION+MB_OkCancel);
--MessageBox(Form1.Handle,'MessageBox','提示‘,MB_ICONINFORMATION+MB_OkCancel+MB_DEFBUTTON2);
-- if MessageBox(Form1.Handle,'MessageBox','提示',MB_ICONINFORMATION+MB_OkCancel)= idOk then
     begin
       ShowMessage('Ok');
     end;

自己写的例子

1、if Application.MessageBox('确认保存','系统提示',mb_YesNo+mb_IconInformation) = IdYes then
     begin

end;

2、ShowMessage('添加成功!');

  

3、   application.MessageBox('添加出错,请联系管理员!','系统提示',mb_OK+MB_ICONinformation);

delphi弹出信息框大全(转载)的更多相关文章

  1. delphi弹出信息框大全

    1. 警告信息框 MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING);2.疑问信息框 MessageBox(Handle,'疑问信息框','疑问信息框' ...

  2. layer弹出信息框API

    首先向大家推荐layer,在这里也非常感谢贤心的贡献,非常不错的信息框及弹出层解决方案,为一些项目的前端开发提高了很大的效率,希望layer 越办越好! 下面是API,呵呵,官方抄袭过来的,为了自己看 ...

  3. Windows Shell编程之如何编写为文件对象弹出信息框的Shell扩展

    有关COM编程资料 转载:http://www.cnblogs.com/lzjsky/archive/2010/11/22/1884702.html 活动桌面引入一项新特性, 当你在某些特定对象上旋停 ...

  4. Java POI 导出EXCEL经典实现 Java导出Excel弹出下载框(转载)

    https://blog.csdn.net/evangel_z/article/details/7332535

  5. winform C#屏幕右下角弹出消息框并自动消失

    ①弹出信息框后慢慢下降消失 在主窗体中新增按钮重命名为btnShowAndDisappearMessages,在click事件中写如下代码: private void btnShowAndDisapp ...

  6. C#中三种弹出信息窗口的方式

    弹出信息框,是浏览器客户端的事件.服务器没有弹出信息框的功能. 方法一: asp.net页面如果需要弹出信息框,则需要在前台页面上注册一个javascript脚本,使用alert方法.使用Client ...

  7. javascript的alert()的消息框不弹出或者弹出信息有误

    有时不知道什么,有时javascript的alert()的消息框不弹出或者弹出信息有误,代码是这么写的: //提示信息 public static void alert(TemplateControl ...

  8. SilverLight 页面后台方法XX.xaml.cs 创建JS,调用JS ,弹出提示框

    1.Invoke和InvokeSelf [c-sharp] view plaincopy public partial class CreateJSDemo : UserControl { publi ...

  9. JAVA导出excel 直接弹出下载框

    转自:https://blog.csdn.net/qq_38423105/article/details/80782283 效果展示: 1.首先准备jar包 <dependency>    ...

随机推荐

  1. 纹理mag filter不能取GL_XXX_MIPMAP_XXXX

    今天遇到OpenGL error 0x0500错误,定位到 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, magFilter); 查看ma ...

  2. Certificates

    Certificates Certificates 即 ”证书“,约等于通行证,申请证书是我们进行真机调试与发布的第一步.证书主要分为两类:Development证书用来开发和调试应用程序Produc ...

  3. 1.文件I/O

    一. open()&close() #include <sys/types.h> #include <sys/stat.h> #include <fcntl.h& ...

  4. windows下控制台程序更改图标和加载资源文件

    1.在空项目的Resouce FIles中右击创建一个新的.rc文件. 2.选中这个.rc文件右击在界面中选择导入icon 3.选中icon,将icon的ID更改为IDC_MAINFRAME. 4.重 ...

  5. mysql获取插入的id主键

    long _retId = -1; Connection con = null; try { con = queryRunner.getDataSource().getConnection(); qu ...

  6. Jquery学习笔记(11)--jquery的ajax删除用户,非常简单!

    jquery的ajax,简直简单!!只要一个$.get(url,map,function)就搞定了! index.php: <!DOCTYPE html> <html lang=&q ...

  7. 初探csrf学习笔记

    以下是学习了对CSRF的理解,大家切勿作为标准,如有出错请告之! 严禁转载.不想拿自己刚学到的知识去[误人子弟]之所以写出来是让自己巩固和增加理解,他日对此文有不当之处自会修改. [00x1]csrf ...

  8. 使用command对象添加删除查询记录

    private void button1_Click(object sender, EventArgs e) { //实例化数据库连接对象 SqlConnection sqlcon = new Sql ...

  9. www--摘录图解TCP/IP

    万维网,www,world wide web,也称web.将互联网中的信息以超文本的形式展现的系统.可以显示www信息的客户端软件叫做web浏览器. www内容 www定义了3个重要的概念,它们分别是 ...

  10. hive 字符集问题 报错 Execution Error, return code 1 from org.apache.hadoop.hive.ql.exec.DDLTask. MetaException(message:For direct MetaStore DB connections,

    学习hive 使用mysql作为元数据  hive创建数据库和切换数据库都是可以的 但是创建表就是出问题 百度之后发现 是编码问题 特别记录一下~~~ 1.报错前如图: 2.在mysql数据库中执行如 ...