2、彈出模式化對話框
在Delphi中,提供模式化對話框的方法不少,現對幾種比較經常使用的方法作以下比較:
1) 直接調用Windows API 函數MessageBox
該方法通常狀況下使用正常,並且根據不一樣的操做系統將顯示相應的中文或英文按鈕標題。而在筆者曾經開發的系統中,偶爾會出現該函數沒有鎖定 Handle所指的窗口的狀況。經過觀察發現,當入口參數的窗口句柄是Application.MainForm的窗口句柄時,沒有出現相似狀況。所以, 建議你們甚用。
2) 調用Delphi提供的函數MessageDlg
該方法的不足之處是,對話框的按鈕標題是英文。
3) 調用Delphi提供的過程ShowMessage
該方法默認將應用程序的標題做爲對話框的標題,而且僅僅是信息提示框,不太靈活。
4) 調用函數Application.MessageBox
該方法是筆者強力推薦使用的方法。該方法的使用效果與Windows API 函數MessageBox徹底相同,而且不會出現有時沒有鎖定當前活動窗口的狀況。
例如:
Aplication.MessageBox(Handle, '這是一條警告信息。', '警告', MB_OK + MB_ICONEXCLAMATION);
轉自bbs.sendsms.cn函數