Delphi Messagebox自動關閉

2021-09-08 00:22:32 字數 2379 閱讀 6638

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_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自動關閉的方法:(hwnd: thandle;)

hwnd := findwindow(nil, '結束提示');

if hwnd <> 0 then

sendmessage(hwnd, wm_close, 0, 0);

注意messagebox(handle, ' ', '結束提示', mb_yesnocancel + mb_iconquestion + mb_systemmodal) 必須用mb_yesnocancel而不能用mb_yesno,用後者時messagebox只有是否按鈕,右上角關閉圖示不能用,加上mb_yesnocancel介面有3個按鈕,右上角關閉按鈕可用,此時傳送關閉訊息可以正常關閉視窗;加上mb_systemmodal提示框會在最頂層顯示。

delphi messagebox 使用技巧

delphi messagebox 使用技巧 訊息框是個很常用的控制項,屬性比較多,本文列出了它的一些常用方法,及指出了它的一些應用場合。1.最簡單用法,不帶圖形 messagebox 0,不同意 提示 mb ok messagebox 0,不同意 提示 mb okcancel 2.警告對話方塊 m...

oracle隨linux OS自動啟動與關閉

在linux 上裝的oracle 每次開機都要手動啟動oracle服務,想做到自動環境 rhel 5 linux oracle 10g now begin 用root 登入 1,vi etc oratab 2,在 etc init.d 下新建一檔案create an file touch etc i...

selenium實現微博批量自動取關

之前偶然登陸微博發現微博裡有60多個關注的物件,然而都不是自己關注的人 萬惡的微博 然後又沒有發現全選 取關的按鈕,於是做了個自動幫助我們取關的指令碼,順便練習一下selenium庫的使用 廢話不多說,上 from selenium import webdriver import time from...