delphi信息提示总结

信息提示总结2008-09-1414:22我现在使用二种信息提示的方式，一种当然是使用Application.messageBox的方式，就是即时提示。另一种就是将所有的错误和警告写在一起，适用于大批量数据的录入，一条条提示太麻烦了。1即时提示我将Application.messageBox进行了封装，MessageBox的哪些参数太多了，哪个有时间去记。封装如下：//普通提示procedureMsgInfo(conststrInfo,strTitle:String);beginApplication.messageBox(Pchar(strInfo),Pchar(strTitle),MB_OKorMB_ICONINFORMATIONorMB_DEFBUTTON1);end;//警告提示procedureMsgWarning(conststrInfo,strTitle:String);beginApplication.messageBox(Pchar(strInfo),Pchar(strTitle),MB_OKorMB_ICONEXCLAMATIONorMB_DEFBUTTON1);end;//错误提示ProcedureMsgWrong(conststrInfo,strTitle:String);beginApplication.messageBox(Pchar(strInfo),Pchar(strTitle),MB_OKorMB_ICONEXCLAMATIONorMB_DEFBUTTON1);end;//确认提示,返回值IDYES为确认,IDNO为否，IDABort为没有足够的内存来显示提示信息functionMsgConfirm(conststrInfo,strTitle:String):Integer;beginResult:=Application.MessageBox(Pchar(StrInfo),Pchar(StrTitle),MB_YESNOorMB_ICONQuestionorMB_DEFBUTTON2);end;当然也可以按自己的想法再添加或修改了，附上MessageBox后面的Flags参数的意义：MessageBox方法对应对象：TApplication声明：functionMessageBox(Text,Caption:PChar;Flags:Word):Integer;功能：MessageBox方法可以显示一个对话框，在对话框中包含了一条信息和一个及多个按钮。MessageBox方法是TApplication中的一个经常使用的方法，它包含了WindowsAPIMessageBox函数。使用过Windows的朋友都看到过MessageBox，可以使用VB或Delphi来创建它们。以下是Flags允许的一些值的组合。标记值/意义MB_ABORTRETRYIGNORE/出现3个按钮：Abort，Retry，Ignore。MB_APPLMODAL/对于应用程序的信息框是模式的，即当返回到应用程序之前用户必须单击一个键，MB_APPLMODAL由缺少值设置，对应的行为可以使用MB_SYSTEMMODAL或MB_TASKMODAL来改变。MB_DEFAULT_DESKTOP_ONLY/信息框必须出现在缺少的桌面上，这个桌面是用户注册的桌面。MB_DEFBUTTON1/信息框的第一个按钮是缺省的按钮。MB_DEFBUTTON2/信息框的第二个按钮是缺省的按钮。MB_DEFBUTTON3/信息框的第三个按钮是缺省的按钮。MB_DEFBUTTON4/信息框的第四个按钮是缺省的按钮。MB_HELP/在信息框上添加一个Help按钮，当按F1或此按钮时可以引起Help事件。MB_ICONASTERISK/与MB_ICONFORMATION的相同。MB_ICONERROR/与MB_ICONHAND相同。MB_ICONEXCLAMATION/出现一个感叹号的图标。MB_ICONHAND/与MB_ICONSTOP相同。MB_ICONINFORMATION/出现一个小写的i图标。MB_ICONQUESTION/出现一个问号？的图标。MB_ICONSTOP/出现一个红色的叉子×的图标。MB_ICONWARNING/与MB_ICONEXCLAMATION的相同。MB_OK/信息框出现一个按钮，按钮标题是OK。MB_OKCANCEL/信息框出现两个按钮，按钮标题是OK和Cancel。MB_RETRYCANCEL/信息框出现两个按钮，按钮标题是Retry和Cancel。MB_RIGHT/信息框内的信息是向右对齐的。MB_TRLREADING/信息框内的文字对于Hebrew和Arabic系统来说是向右对齐的。MB_SERVICE_NOTIFICATION/允许信息框在一个没有被注册的桌面上显示。MB_SETFORMEGROUND/使信息框成为当前的窗口。MB_SYSTEMMODAL/此信息框不允许用户在它被关闭之前进行任何的其他操作，这个标记可以为十分重要的信息进行保留。MB_TASKMODAL/与MB_APPLMODAL相同。MB_YESNO/信息框有两个按钮，按钮标题是Yes和No。MB_YESNOCANCEL/信息框内有三个按钮，按钮标题是Yes，No和Canel。对于此属性的返回值类型可见下表：命名的返回值/返回数值/意义IDABORT/0/没有足够的内存空间来显示信息框。IDABORT/3/用户选择了Abort按钮功能。IDCANCEL/2/用户选择了Cancel按钮功能。IDIGNORE/5/用户选择了Ignore按钮功能。IDNO/7/用户选择了No按钮功能。IDOK/1/用户选择了OK按钮功能。IDRETRY/4/用户选择了Retry按钮功能。IDYES/6/用户选择了Yes按钮功能。2在窗体中给出提示信息建立一个窗体，上面给出一个Memo控件来显示多行提示内容，下面给出三个按扭：确定，忽略，关闭。窗体给两个整数属性：警告条数和错误