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);