Application.messagebox對話方塊樣式

標籤：

if Application.MessageBox(‘刪除不能恢複，確認刪除嗎？‘, ‘刪除提示‘, MB_OKCANCEL + MB_ICONQUESTION)=mrOk then
begin
　　ShowMessage(‘你選擇的OK！‘);
end;

1．   警告資訊框   
  Application.MessageBox("警告資訊框","警告資訊框",MB_ICONWARNING);   
  2．疑問資訊框   
  Application.MessageBox("疑問資訊框","疑問資訊框",MB_ICONQUESTION);   
  3．錯誤提示框   
  Application.MessageBox("錯誤資訊框","錯誤資訊框",MB_IConERROR);   
  4．提示資訊框   
  Application.MessageBox("提示資訊框","提示資訊框",MB_ICONASTERISK);   
  5．說明資訊框   
  Application.MessageBox("說明資訊框","說明資訊框",MB_HELP);   
  6．提示資訊框   
  Application.MessageBox("提示資訊框","提示資訊框",MB_OK);   
  7．確認資訊框   
  Application.MessageBox("確認資訊框","確認資訊框",MB_OKCANCEL);   
  8．重試資訊框   
  Application.MessageBox("重試資訊框","重試資訊框",MB_RETRYCANCEL);   
  9．是否資訊框   
  Application.MessageBox("是否資訊框","是否資訊框",MB_YESNO);   
  10．是否取消資訊框   
  Application.MessageBox("是否取消資訊框","是否取消資訊框",MB_YESNOCANCEL);  

Application.messagebox對話方塊樣式