信息提示總結2008-09-1414:22我現在使用二種信息提示的方式，一種當然是使用Application.messageBox的方式，就是即時提示。另一種就是將所有的錯誤和警告寫在一起，適用于大批量數據的錄入，一條條提示太麻煩了。1即時提示我將Application.messageBox進行了封裝，MessageBox的哪些參數太多了，哪個有時間去記。封裝如下：//普通提示procedureMsgInfo(conststrInfo,strTitle:String);beginApplication.messageBox(Pchar(strInfo),Pchar(strTitle),MB_OKorMB_ICONINFORMATIONorMB_DEFBUTTON1);end;//警告提示procedureMsgWarning(conststrInfo,strTitle:String);beginApplication.messageBox(Pchar(strInfo),Pchar(strTitle),MB_OKorMB_ICONEXCLAMATIONorMB_DEFBUTTON1);end;//錯誤提示ProcedureMsgWrong(conststrInfo,strTitle:String);beginApplication.messageBox(Pchar(strInfo),Pchar(strTitle),MB_OKorMB_ICONEXCLAMATIONorMB_DEFBUTTON1);end;//確認提示,返回值IDYES為確認,IDNO為否，IDABort為沒有足夠的內存來顯示提示信息functionMsgConfirm(conststrInfo,strTitle:String):Integer;beginResult:=Application.MessageBox(Pchar(StrInfo),Pchar(StrTitle),MB_YESNOorMB_ICONQuestionorMB_DEFBUTTON2);end;當然也可以按自己的想法再添加或修改了，附上MessageBox后面的Flags參數的意義：MessageBox方法對應對象：TApplication聲明：functionMessageBox(Text,Caption:PChar;Flags:Word):Integer;功能：MessageBox方法可以顯示一個對話框，在對話框中包含了一條信息和一個及多個按鈕。MessageBox方法是TApplication中的一個經常使用的方法，它包含了WindowsAPIMessageBox函數。使用過Windows的朋友都看到過MessageBox，可以使用VB或Delphi來創建它們。以下是Flags允許的一些值的組合。標記值/意義MB_ABORTRETRYIGNORE/出現3個按鈕：Abort，Retry，Ignore。MB_APPLMODAL/對于應用程序的信息框是模式的，即當返回到應用程序之前用戶必須單擊一個鍵，MB_APPLMODAL由缺少值設置，對應的行為可以使用MB_SYSTEMMODAL或MB_TASKMODAL來改變。MB_DEFAULT_DESKTOP_ONLY/信息框必須出現在缺少的桌面上，這個桌面是用戶注冊的桌面。MB_DEFBUTTON1/信息框的第一個按鈕是缺省的按鈕。MB_DEFBUTTON2/信息框的第二個按鈕是缺省的按鈕。MB_DEFBUTTON3/信息框的第三個按鈕是缺省的按鈕。MB_DEFBUTTON4/信息框的第四個按鈕是缺省的按鈕。MB_HELP/在信息框上添加一個Help按鈕，當按F1或此按鈕時可以引起Help事件。MB_ICONASTERISK/與MB_ICONFORMATION的相同。MB_ICONERROR/與MB_ICONHAND相同。MB_ICONEXCLAMATION/出現一個感嘆號的圖標。MB_ICONHAND/與MB_ICONSTOP相同。MB_ICONINFORMATION/出現一個小寫的i圖標。MB_ICONQUESTION/出現一個問號？的圖標。MB_ICONSTOP/出現一個紅色的叉子×的圖標。MB_ICONWARNING/與MB_ICONEXCLAMATION的相同。MB_OK/信息框出現一個按鈕，按鈕標題是OK。MB_OKCANCEL/信息框出現兩個按鈕，按鈕標題是OK和Cancel。MB_RETRYCANCEL/信息框出現兩個按鈕，按鈕標題是Retry和Cancel。MB_RIGHT/信息框內的信息是向右對齊的。MB_TRLREADING/信息框內的文字對于Hebrew和Arabic系統來說是向右對齊的。MB_SERVICE_NOTIFICATION/允許信息框在一個沒有被注冊的桌面上顯示。MB_SETFORMEGROUND/使信息框成為當前的窗口。MB_SYSTEMMODAL/此信息框不允許用戶在它被關閉之前進行任何的其他操作，這個標記可以為十分重要的信息進行保留。MB_TASKMODAL/與MB_APPLMODAL相同。MB_YESNO/信息框有兩個按鈕，按鈕標題是Yes和No。MB_YESNOCANCEL/信息框內有三個按鈕，按鈕標題是Yes，No和Canel。對于此屬性的返回值類型可見下表：命名的返回值/返回數值/意義IDABORT/0/沒有足夠的內存空間來顯示信息框。IDABORT/3/用戶選擇了Abort按鈕功能。IDCANCEL/2/用戶選擇了Cancel按鈕功能。IDIGNORE/5/用戶選擇了Ignore按鈕功能。IDNO/7/用戶選擇了No按鈕功能。IDOK/1/用戶選擇了OK按鈕功能。IDRETRY/4/用戶選擇了Retry按鈕功能。IDYES/6/用戶選擇了Yes按鈕功能。2在窗體中給出提示信息建立一個窗體，上面給出一個Memo控件來顯示多行提示內容，下面給出三個按扭：確定，忽略，關閉。窗體給兩個整數屬性：警告條數和錯誤