Delphi的MessageBox對話方塊使用

messagebox對話方塊是比較常用的乙個資訊對話方塊，其不僅能夠定義顯示的資訊內容、資訊提示圖示，而且可以定義按鈕組合及對話方塊的標題，是乙個功能齊全的資訊對話方塊資訊提示圖示，而且可以定義按鈕組合及對話方塊的標題，是乙個功能齊全的資訊對框。

function

messagebox
(hwnd: hwnd; text, caption: pchar; type: word)
: integer;
hwnd：對話方塊父視窗控制代碼，對話方塊顯示在delphi窗體內，可使用窗體的handle屬性，否則可用0，使其直接作為桌面視窗的子視窗。
text：欲顯示的資訊字串。
caption：對話方塊標題字串。
type：對話方塊型別常量。
該函式的返回值為整數，用於對話方塊按鈕的識別。

對話方塊的型別常量可由按鈕組合、預設按鈕、顯示圖示、執行模式四種常量組合而成。

（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_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
//按否按鈕

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

MFC國際化與多語言 02 MessageBox

你有你的路，我有我的路。至於適當的路，正確的路和唯一的路，這樣的路並不存在。尼采 系統 win10 x64 vs版本 vs2010 旗艦版 mfc國際化與多語言 一 基於dialog 介紹了如何對mfc程式中自定義資源進行國際化的問題。然而，如何對開發環境提供的對話方塊 例如messagebox 進...

Delphi 02 Delphi程式的結構

一 工程檔案 program multiunit uses sysutils,unit1 in unit1.pas begin 引用unit1中的變數，因為是在介面部分定義所以可以引用 strgreet hello world 呼叫unit1中的過程 因為是在介面部分定義所以可以引用 greetin...

delphi讀音 delphi漢字轉拼音

loading.function getpyindexchar hzchar string char begin 的到乙個漢字的拼音頭個字母 case word hzchar 1 shl 8 word hzchar 2 of b0a1.b0c4 result a b0c5.b2c0 result b...