delphi的消息对话框.docxVIP

delphi的消息对话框输入输出inputBox()函数MessageBox()ShowMessage对话框是Windows操作系统中程序与用户沟通的一种常见的交互方式，对话框可以向用户提供当前程序的运行状况，也可以接受用户输入的信息，在 Delphi中，对话框函数大体上可以分为两种——输入对话框函数和输出对话框函数。输入对话框函数用于接收用户在程序运行过程中输入的信息，其中包括 InputBox()，InputQuery()函数。输出对话框函数则用于显示一个对话框窗体和向用户报告当前程序的运行状态等信息，它包括ShowMessage()函数、 MessageDlg()函数。下面就对各个函数分别加以介绍。输入：InputBox()函数对话框函数中的InputBox()函数用于在程序运行的过程中显示一个包含一个字符串和按钮信息的输入对话框。它的语法结构如下所示：function InputBox(const ACaption, APrompt, ADefault: string): string;下面以一个示例来说明InputBox()函数的用法：procedure TForm1.Button1Click(Sender: TObject);varstr : string;beginstr:=inputbox(南山古桃的对话框,请输入要平方的数据,0);edit1.Text:=南山古桃 得到的平方是： + floattostr(strtofloat(str)*strtofloat(str));end;输出：1.ShowMessage()函数--最常用，最简单对话框函数中的ShowMessage()函数用于在程序运行的过程中显示包含一个字符串信息的对话框。它的语法结构如下所示：ShowMessage(const Msg:string);如：ShowMessage(南山古桃 问候您！);2.MessageBox()函数--正式程序时常用此函数输出（个人观点）例：--Application.MessageBox(MessageBox,警告,MB_ICONWARNING+MB_YesNo);--MessageBox(Form1.Handle,MessageBox,提示,MB_ICONINFORMATION+MB_OkCancel);--MessageBox(Form1.Handle,MessageBox,提示‘,MB_ICONINFORMATION+MB_OkCancel+MB_DEFBUTTON2);-- if MessageBox(Form1.Handle,MessageBox,提示,MB_ICONINFORMATION+MB_OkCancel)= idOk then???? begin?????? ShowMessage(Ok);???? end;//********************************************************************************************************************在Delphi中输入MessageBox按下F1，会出来帮助，可以查阅具体参数intMessageBox(??? HWND hWnd,??? // handle of owner window??? LPCTSTR lpText,??? // address of text in message box??? LPCTSTR lpCaption,??? // address of title of message box??? UINT uType???? // style of message box?? );Specifies a set of bit flags that determine the contents and behavior of the dialog box. This parameter can be a combination of flags from the following groups of flags.Specify one of the following flags to indicate the buttons contained in the message box:Flag??? MeaningMB_ABORTRETRYIGNORE??? The message box contains three push buttons: Abort, Retry, and Ignore.MB_OK??? The message box contains one push button: OK. This is the