• Delphi Messagebox 介绍


    Delphi Messagebox 介绍

    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        //按否按钮

    4、其他

    // 让MessageBox自动关闭的方法:

    var 
      Hwnd: THandle;
    begin
      Hwnd := FindWindow(nil, '结束提示');
      if Hwnd <> 0 then
      SendMessage(Hwnd, WM_CLOSE, 0, 0);
    end;

    注意:例如:提示框,MessageBox(Handle, ' ', '结束提示', MB_YESNOCANCEL + MB_ICONQUESTION + MB_SYSTEMMODAL)

    这里必须用 MB_YESNOCANCEL 而不能用 MB_YESNO,因为 MB_YESNO 有是否按钮,右上角关闭图标不能使用,而 MB_YESNOCANCEL 有3个按钮,右上角关闭按钮可用,

    此时发送关闭消息可以正常关闭窗口;加上MB_SYSTEMMODAL提示框会在最顶层显示。

    创建时间:2015.04.30  更新时间:2020.05.19 

  • 相关阅读:
    全选、反选和不选
    树状图
    年月日选择器
    细谈HTML5
    再谈HTML
    FlashFXP 破解代码
    文件上传示例
    PHP聊天室框架
    JS判断是否来自手机移动端的访问,并跳转
    JQUERY知识总结
  • 原文地址:https://www.cnblogs.com/guorongtao/p/4470088.html
Copyright © 2020-2023  润新知