delphi弹出信息框大全.doc

delphi弹出信息框大全 1． 警告信息框 MessageBox(Handle,警告信息框,警告信息框,MB_ICONWARNING);2．疑问信息框 MessageBox(Handle,疑问信息框,疑问信息框,MB_ICONQUESTION);3．错误提示框 MessageBox(Handle,错误信息框,错误信息框,MB_ICONERROR);4．提示信息框 MessageBox(Handle,提示信息框,提示信息框,MB_ICONASTERISK);5．说明信息框 MessageBox(Handle,说明信息框,说明信息框,MB_HELP);6．提示信息框 MessageBox(Handle,提示信息框,提示信息框,MB_OK);7．确认信息框 MessageBox(Handle,确认信息框,确认信息框,MB_OKCANCEL);8．重试信息框 MessageBox(Handle,重试信息框,重试信息框,MB_RETRYCANCEL);9．是否信息框 Application.MessageBox(Handle,是否信息框,是否信息框,MB_YESNO);10．是否取消信息框 Application.MessageBox(Handle,是否取消信息框,是否取消信息框,MB_YESNOCANCEL);11 简单提示信息框 ShowMessage(这个就是ShowMessage函数生成的信息提示框！);_____________________________________________________________________________1． 警告信息框 MessageBox(Handle,程序超出内存。,错误,MB_OK+MB_ICONERROR)MessageBox(0, 配置文件成功, 提示, mb_iconinformation-----------------------------------以下是详细说明//ShowMessage:beginShowMessage(提示内容); {标题默认工程名, 如: Proect1}Application.Title := 警告; {如果修改工程标题...}ShowMessage(提示内容); {标题是警告}ShowMessage(第一行 + #13#10 + 第二行); {提示信息换行}ShowMessage(第一行#13第二行); {也可以}end;--------------------------------------------------------------------------------//InputBox:vars: string;begins := InputBox(标题,提示信息,默认输入);ShowMessage(s); //显示输入的内容end;--------------------------------------------------------------------------------//InputQuery:vars: string;beginInputQuery(标题,提示信息,s); //为字符串变量 S 输入值, 返回布尔型ShowMessage(s); //显示输入的内容end;--------------------------------------------------------------------------------//MessageBox:vari: Integer;begini := MessageBox(0,提示内容,标题,mrOk); //第一个参数一般用 Self.Handle, 0代表桌面//可选参数 //mrNone//mrOk//mrCancel//mrAbort//mrRetry//mrIgnore//mrYes//mrNo//mrAll//mrNoToAll//mrYesToAllShowMessage(IntToStr(i));//还可以组合第四个参数以调用不同的图标:MessageBox(0,提示内容,标题,mrOk + MB_ICONHAND);//MB_ICONHAND//MB_ICONQUESTION//MB_ICONEXCLAMATION//MB_ICONASTERISK//MB_USERICON//MB_ICONWARNING//MB_ICONERROR//MB_ICONINFORMATION//MB_ICONSTOPend;