delphi课件第4章

《delphi课件第4章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第4章对话框和多窗体设计内容提要使用Delphi7内建的信息对话框函数Delphi通用对话框多重窗体设计4.1Delphi7内建的对话框函数在Delphi7中，提供了几个直接显示内建信息对话框的函数。这些函数分别是ShowMessage,ShowMessagePos,ShowMessagFmt,MessageDlg,MessageDlgPos,MessageDlg,MessageDlgPos,MessageDlgPosHelp,MessageBox,InputBox和InputQuery等。下面就分别介绍这些对

2、话框。4.1.1ShowMessage函数ShowMessage函数的定义如下：ProcedureShowMessage(ConstMsg:String);该函数是最简单的信息对话框，它只有一个参数。ShowMessage函数对话框只能显示一个提示信息和一个[OK]按钮。图4-1ShowMessage函数弹出的对话框4.1.2ShowMessagePos函数ShowMessagePos函数ShowMessage函数也类似，不过多了一个显示格式参数。通过该函数可以输出一些字符串进行格式化后的值。ShowMessa

3、gePos函数定义如下：ProcedureShowMessagePos(ConstMsg::string;X,Y:Integer);以下程序利用ShowMessagePos函数将消息框定位在（100，100）的坐标上：ShowMessagePos（'显示位置在100，100的坐标上'，100，100）；4.1.3ShowMessageFmt函数ShowMessageFmt函数用于字符串的格式化输出。ShowMessageFmt函数定义如下：ProcedureShowMessageFmt(ConstMsg:Str

4、ing;Params:ArrayOfConst);其中，Msg参数的一般形式为’普通字符（提示字符）格式控制符’ShowMessageFmt函数使用的类型说明符参见P119，表4-14.1.4MessageDlg函数MessageDlg函数可以提供比较丰富的信息，比如显示的消息对话框类型，按钮类型等，还能够得到用户的响应信息。其定义如下：FunctionMessageDlg(ConstMsg：String；DlgType：TMsgDlgType；Buttons：TMsgDlgButtons；HelpCtx：Lo

5、ngInt)：Word；其中：Msg：表示对话框的提示信息。DlgType：通过它可以在信息对话框中设置一定的图标来表达不同的意义，比如警告、询问等。其取值如表4-2所示。Bottons：是一个集合类型，它控制在信息对话框中可能出现的按钮名称。其取值如表4-3所示。HelpCtx：用于定义帮助按钮打开的上下文帮助文件的ID，按F1也可打开帮助文件。4.1.5MessageDlgPos函数MessageDlgPos函数和MessageDlg相似，但此函数多了一个可控制弹出信息框的出现位置的功能。定义如下：Func

6、tionMessageDlg(ConstMsg：String；DlgType：TMsgDlgType；Buttons：TMsgDlgButtons；HelpCtx：LongInt；X，Y：Integer)：Word；X、Y参数表示信息对话框出现的位置。下面给出有关该函数的一个实例：MessageDlgPos（'此信息对话框在100，100的位置上？'，MtInformation，[mbYes，mbNo，mbCancel]，0，100，100）；4.1.6MeaageDlgPosHelp函数MessageDlgP

7、osHelp函数定义如下：FunctionMessageDlgPosHelp（ConstMsg：string；DlgType：TmsgDlgType；Buttons：TmsgDlgButtons；HelpCtx：Longint；X，Y：Integer；constHelpFileName：string）：Word；其中：Msg、DlgType、Buttons和HelpCtx参数在MessageDlg函数中已经介绍。X、Y表示信息对话框出现的位置。HelpFileName有特殊的含义，它将帮助信息对话框与之相对应的

8、帮助文件建立联系。4.1.7MessageBox函数MessageBox函数是WindowAPI函数，但可在Delphi7下直接使用。MessageBox函数的定义如下：FunctionMessageBox(ConstText：PAnsiChar；ConstCaption：PAnsiChar；[Flags：LongInt=MB_OK])：Integer；其中：Text参数是一个长度可以