Delphi中MessageBox用法

來源:互聯網
上載者:User

 

訊息框是個很常用的控制項,屬性比較多,本文列出了它的一些常用方法,及指出了它的一些應用場合。

1.最簡單用法,不帶圖形

MessageBox(0,'不同意','提示',MB_OK);

MessageBox(0,'不同意','提示',MB_OKCANCEL );

2.警告對話方塊:

MessageBox(0,'密碼不可為空,請務必輸入密碼','警告',MB_ICONEXCLAMATION);

3.提示資訊對話方塊:

MessageBox(0,'密碼不可為空,請務必輸入密碼','提示',MB_ICONASTERISK and MB_ICONINFORMATION);

4.複雜用法:

MessageBox(Handle, PChar('進程' + Listview1.Selected.caption +'不能被結束!'), PChar('提示'), MB_ICONEXCLAMATION);

附常用屬性

系統預設表徵圖,可在訊息框上顯示
X錯誤 MB_ICONHAND, MB_ICONSTOP, and MB_ICONERROR
?詢問 MB_ICONQUESTION
!警告 MB_ICONEXCLAMATION and MB_ICONWARNING
i資訊 MB_ICONASTERISK and MB_ICONINFORMATION

按鈕的形式
MB_OK   預設
MB_OKCANCEL 確定取消
MB_YESNO 是否
MB_YESNOCANCEL 是否取消

傳回值
IDCANCEL 取消被選
IDNO 否被選
IDOK 確定被選
IDYES 是被選

補充:
以上訊息框的用法是在Delphi中的應用,如果不是,則要MessageBox(NULL,"ddd","ddd",MB_OK);   或MessageBox(hWnd,"ddd","ddd",MB_OK); hWnd為某視窗的控制代碼,或者直接用AfxMessageBox。

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.