资源描述:
《delphi的消息对话框》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、delphi的消息对话框输入输出inputBox()函数MessageBox()ShowMessage对话框是Windows操作系统中程序与用户沟通的一种常见的交互方式,对话框可以向用户提供当前程序的运行状况,也可以接受用户输入的信息,在Delphi中,对话框函数大体上可以分为两种——输入对话框函数和输出对话框函数。输入对话框函数用于接收用户在程序运行过程中输入的信息,其中包括InputBox(),InputQuery()函数。输出对话框函数则用于显示一个对话框窗体和向用户报告当前程序的运行状态等信息,它包括
2、ShowMessage()函数、MessageDlg()函数。下面就对各个函数分别加以介绍。输入:InputBox()函数对话框函数中的InputBox()函数用于在程序运行的过程中显示一个包含一个字符串和按钮信息的输入对话框。它的语法结构如下所示:functionInputBox(constACaption,APrompt,ADefault:string):string;下面以一个示例来说明InputBox()函数的用法:procedureTForm1.Button1Click(Sender:TObject
3、);varstr:string;beginstr:=inputbox('南山古桃的对话框','请输入要平方的数据','0');edit1.Text:='南山古桃得到的平方是:'+floattostr(strtofloat(str)*strtofloat(str));end;输出:1.ShowMessage()函数--最常用,最简单对话框函数中的ShowMessage()函数用于在程序运行的过程中显示包含一个字符串信息的对话框。它的语法结构如下所示:ShowMessage(constMsg:string);如:
4、ShowMessage('南山古桃问候您!');2.MessageBox()函数--正式程序时常用此函数输出(个人观点)例:--Application.MessageBox('MessageBox','警告',MB_ICONWARNING+MB_YesNo);--MessageBox(Form1.Handle,'MessageBox','提示',MB_ICONINFORMATION+MB_OkCancel);--MessageBox(Form1.Handle,'MessageBox','提示‘,MB_ICON
5、INFORMATION+MB_OkCancel+MB_DEFBUTTON2);--ifMessageBox(Form1.Handle,'MessageBox','提示',MB_ICONINFORMATION+MB_OkCancel)=idOkthen begin ShowMessage('Ok'); end;//*****************************************************************************************
6、***************************在Delphi中输入MessageBox按下F1,会出来帮助,可以查阅具体参数intMessageBox( HWNDhWnd, //handleofownerwindow LPCTSTRlpText, //addressoftextinmessagebox LPCTSTRlpCaption, //addressoftitleofmessagebox UINTuType //styleofmessagebox );Spec
7、ifiesasetofbitflagsthatdeterminethecontentsandbehaviorofthedialogbox.Thisparametercanbeacombinationofflagsfromthefollowinggroupsofflags.Specifyoneofthefollowingflagstoindicatethebuttonscontainedinthemessagebox:Flag MeaningMB_ABORTRETRYIGNORE Themessageb
8、oxcontainsthreepushbuttons:Abort,Retry,andIgnore.MB_OK Themessageboxcontainsonepushbutton:OK.Thisisthedefault.MB_OKCANCEL Themessageboxcontainstwopushbuttons:OKandCancel.MB_RETRYCANCEL Themessage