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