2018年3月5日 星期一

MessageBox

函數原型及參數
 function MessageBox(hWnd: HWND; TextCaption: PChar; Type: Word): Integer;

hWnd:對話框父窗口句柄,對話框顯示在Delphi窗體內,可使用窗體的Handle屬性,否則可用0,使其直接作為桌面窗口的子窗口。

Text:欲顯示的信息字符串。

Caption:對話框標題字符串。

Type:對話框類型常量。

按鈕組合常量
   MB_OK = $00000000;                                     //一個確定按鈕
   MB_OKCANCEL = $00000001;                     //一個確定按鈕,取消按鈕
   MB_ABORTRETRYIGNORE = $00000002;  //一個異常終止按鈕,重試按鈕,忽略按鈕
   MB_YESNOCANCEL = $00000003;             //一個是按鈕,一個否按鈕,一個取消按鈕
   MB_YESNO = $00000004;                             //一個是按鈕,一個否按鈕
   MB_RETRYCANCEL = $00000005;              //一個重試按鈕,一個取消按鈕

預設按鈕
   MB_DEFBUTTON1 = $00000000;           //第一個按鈕為缺省按鈕
   MB_DEFBUTTON2 = $00000100;           //第二個按鈕為缺省按鈕
   MB_DEFBUTTON3 = $00000200;           //第三個按鈕為缺省按鈕
   MB_DEFBUTTON4 = $00000300;           //第四個按鈕為缺省按鈕

圖標常量
   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;                             //「×」號圖標

運行模式常量
   MB_APPLMODAL = $00000000;     
      //應用程序模式,在未結束對話框前也能切換到另一應用程序
   MB_SYSTEMMODAL = $00001000;     
      //系統模式,必須結束對話框後,才能做其他操作
   MB_TASKMODAL = $00002000;       
      //任務模式,在未結束對話框前也能切換到另一應用程序
   MB_HELP = $00004000;           
      //Help Button

函數返回值
   0                        //對話框建立失敗
   idOk = 1            //按確定按鈕
   idCancel = 2      //按取消按鈕
   idAbout = 3       //按異常終止按鈕
   idRetry = 4        //按重試按鈕
   idIgnore = 5      //按忽略按鈕
   idYes = 6           //按是按鈕
   idNo = 7            //按否按鈕

例:
  Result := MessageBox(Handle, 'Test', 'Message', MB_OK);
  Result := MessageBox(Handle, 'Exit ?', 'Question', MB_ICONQUESTION+MB_YESNO+MB_DEFBUTTON2);


轉貼至 http://chengyan35.pixnet.net/blog/post/142390734-[delphi]delphi中的messagebox用法

沒有留言:

張貼留言