Question

delphi 弹出信息框

messagebox(application.Handle,pchar('登陆失败!'),pchar
('提示'),MB_OK);
这样就弹出来了，但是一般的信息框，我要弹出信息框，和错误信息框的样子这个“MB_OK” 需要改成什么呢，
请高手吧：询问，信息，错误，。。。这些的参数都写出来，谢谢！

Answer 1

messagebox(application.Handle,pchar('登陆失败!'),pchar
('提示'),MB_OK+MB_ICONINFORMATION);

函数MessageBox的图标参数
信息 MB_ICONINFORMATION
问号 MB_ICONQUESTION
停止号 MB_ICONSTOP
惊叹号 MB_ICONEXCLAMATION

风格参数
MB_ABORTRETRYIGNORE Abort,Retry,Ignore;
MB_OK OK
MB_OKCANCEL OK,Cancel
MB_RETRYCANCEL Retry,Cancel;
MB_YESNO ,Yes,No
MB_YESNOCANCEL, Yes,No ,Cancel

Answer 2

MB_OK or MB_ICONQUESTION 问号
MB_OK or MB_ICONERRORD错误
MB_OK or MB_ICONEXCLAMATION警告
MB_OK or MB_ICONINFORMATION信息，更多的内容，可查看windows.pas

Answer 3

MB_ICONWARNING,MB_ICONERROR