《Delphi7程序设计》第4章 对话框和多窗体设计

第4章对话框和多窗体设计 内容提要 使用 Delphi7内建的信息对话框函数 团 Delphi通用对话框 区多重窗体设计 ccccccMccccccccccc:cMMH

第4章 对话框和多窗体设计 内容提要  使用Delphi7内建的信息对话框函数  Delphi 通用对话框  多重窗体设计

4.1 De l phi7内建的对话框函数 在 Delphi7中,提供了几个直接显示内建信 息对话框的函数。这些函数分别是 ShowMessage. showMessagePos showMessa gMt, MessageDIg, MessageDlgPos, Message DIg, MessageDlgPos, MessageDlg PosHelp, Me sSageBox, InputBox和 InputQuery等。下面就 分别介绍这些对话框 ccccccMccccccccccc:cMMH

4.1 Delphi7内建的对话框函数 在Delphi 7中，提供了几个直接显示内建信 息对话框的函数。这些函数分别是 ShowMessage,ShowMessagePos,ShowMessa gFmt,MessageDlg,MessageDlgPos,Message Dlg,MessageDlgPos,MessageDlgPosHelp,Me ssageBox,InputBox和InputQuery等。下面就 分别介绍这些对话框

4.1.1 ShowMessage函数 ShowMessage函数的定义如下: Procedure ShowMessage(Const Msg: String) 该函数是最简单的信息对话框,它只有一个参数 ShowMessage函数对话框只能显示一个提示信 息和一个[OK]按钮。 Project1 我是要显示的信息 图4-1 ShowMessage函数弹出的对话框 ccccccMccccccccccc:cMMH

4.1.1 ShowMessage函数 ShowMessage函数的定义如下： Procedure ShowMessage(Const Msg:String); 该函数是最简单的信息对话框，它只有一个参数。 ShowMessage函数对话框只能显示一个提示信 息和一个[OK]按钮。 图4-1 ShowMessage函数弹出的对话框

4.12 Show MessagePos函数 ShowMessagePos函数 ShowMessage函数也类 似,不过多了一个显示格式参数。通过该函数可以 输出一些字符串进行格式化后的值。 ShowMessagePos函数定义如下 Procedure ShowMessagePos( Const Msg string, X,Y: Integer) >以下程序利用 ShowMessagePos函数将消息框定 位在(100,100)的坐标上: ShowMessagePos(显示位置在100,100的坐标上!, 100,100) ccccccMccccccccccc:cMMH

4.1.2 ShowMessagePos函数 ShowMessagePos函数ShowMessage函数也类 似，不过多了一个显示格式参数。通过该函数可以 输出一些字符串进行格式化后的值。 ShowMessagePos函数定义如下： Procedure ShowMessagePos(Const Msg::string;X,Y: Integer); ➢ 以下程序利用 ShowMessagePos 函数将消息框定 位在（100，100）的坐标上： ShowMessagePos（'显示位置在100，100的坐标上' ， 100，100）；

4.1.3 Show MessageFmt函数 ShowMessageFmt函数用于字符串的格式化输出 ShowMessageFmt函数定义如下: rocedure ShowMessageFmt(Const Msg: String; Params Array of Const) 其中,Msg参数的一般形式为 ’普通字符(提示字符)格式控制符’ > ShowMessageFmt函数使用的类型说明符 参见P119,表4-1 ccccccMccccccccccc:cMMH

4.1.3 ShowMessageFmt 函数 ShowMessageFmt函数用于字符串的格式化输出。 ShowMessageFmt函数定义如下： Procedure ShowMessageFmt(Const Msg:String;Params:Array Of Const); 其中，Msg参数的一般形式为 ’普通字符（提示字符）格式控制符’ ➢ ShowMessageFmt 函数使用的类型说明符 参见P119，表4-1

4.14 MessageD!g函数 MessageD)g函数可以提供比较丰富的信息,比如显示的消息对话框类型, 按钮类型等,还能够得到用户的响应信息。其定义如下 Function MessageDlg(Const Msg: String; DIgType TMsgDIgType; Buttons: TMsgDlgButtons; HelpCtx LongInt ): Word; 其中: >Msg:表示对话框的提示信息 > DIgType:通过它可以在信息对话框中设置一定的图标来表达不同的 意义,比如警告、询问等。其取值如表42所示。 Bottons:是一个集合类型,它控制在信息对话框中可能出现的按钮名 称。其取值如表4-3所示 HelpCtx:用于定义帮助按钮打开的上下文帮助文件的ID,按F1也可 打开帮助文件 ccccccMccccccccccc:cMMH

4.1.4 MessageDlg 函数 MessageDlg 函数可以提供比较丰富的信息，比如显示的消息对话框类型， 按钮类型等，还能够得到用户的响应信息。其定义如下： Function MessageDlg (Const Msg ：String ；DlgType ：TMsgDlgType ； Buttons：TMsgDlgButtons ；HelpCtx ：LongInt ) ：Word ； 其中： ➢ Msg： 表示对话框的提示信息。 ➢ DlgType： 通过它可以在信息对话框中设置一定的图标来表达不同的 意义，比如警告、询问等。其取值如表4-2 所示。 ➢ Bottons： 是一个集合类型，它控制在信息对话框中可能出现的按钮名 称。其取值如表4-3所示。 ➢ HelpCtx ：用于定义帮助按钮打开的上下文帮助文件的ID，按F1也可 打开帮助文件

ccccccMccccccccccc:cMMH

4.1.5 MessageDIgPos函数 MessagedigPos函数和 MessageDIg相似,但此函数多了一个 可控制弹出信息框的出现位置的功能。定义如下 Function MessageDlg (Const Msg String; di gType TMsgDigType But tons TMsgdigBut tons elpctx LongInt; x, Y: Integer): Word X、Y参数表示信息对话框出现的位置。 下面给出有关该函数的一个实例: MessagedigPos(’此信息对话框在100,100的位置上?’, MtInformation, [mbYes, mbNo, mbCance1 0,100,100) ccccccMccccccccccc:cMMH

4.1.5 MessageDlgPos 函数 MessageDlgPos 函数和 MessageDlg 相似，但此函数多了一个 可控制弹出信息框的出现位置的功能。定义如下： Function MessageDlg (Const Msg ：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.6 MeaageDlgPosHelp函数 MessageD) gPoshelp函数定义如下: Function Message DlgPosHelp( Const Msg: string; Dlg Type TmsgDIg Type; Buttons: Tmsg DlgButtons; HelpCtx: Longint X, Y: Integer; const HelpFileName: string): Word; 其中: >Msg、 DIg Type、Buns和 HelpCtx参数在 MessageDlg函 数中已经介绍。 X、Y表示信息对话框出现的位置。 HelpFileName有特殊的含义,它将帮助信息对话框与之相 对应的帮助文件建立联系 ccccccMccccccccccc:cMMH

4.1.6 MeaageDlgPosHelp 函数 MessageDlgPosHelp 函数定义如下： Function MessageDlgPosHelp（Const Msg：string；DlgType： TmsgDlgType；Buttons： TmsgDlgButtons；HelpCtx：Longint； X，Y：Integer；const HelpFileName：string）：Word； 其中： ➢Msg 、DlgType 、Buttons 和HelpCtx 参数在 MessageDlg 函 数中已经介绍。 ➢X 、Y 表示信息对话框出现的位置。 ➢HelpFileName 有特殊的含义，它将帮助信息对话框与之相 对应的帮助文件建立联系

4.17 MessageBox函数 Message Box函数是 Window API函数,但可在 Delphi7下直接使用。 Message Box函数的定义如下: Function Message BoX(Const Text: PAnsiChar; Const Caption: PAnsi Char Flags: LongInt=MB OKD: Integer; 其中 Text参数是一个长度可以超过255的字符串,它显示在对话框的中部, 能自动环绕。 > Caption参数类型与Text参数相同,它只是作为弹出的信息对话框的标 题,也可以超过255个字符。 Flags是一个 LongInt类型的参数,它可以从0开始取不同的值,使对话 框的可选项不同。它包含四个参数,各项参数如表4-4、表4-5、表46和表 4-7所示 ccccccMccccccccccc:cMMH

4.1.7 MessageBox 函数 MessageBox 函数是 Window API 函数，但可在 Delphi 7 下直接使用。 MessageBox 函数的定义如下： Function MessageBox(Const Text：PAnsiChar；Const Caption：PAnsiChar； [Flags：LongInt=MB_OK])：Integer； 其中： ➢Text 参数是一个长度可以超过 255 的字符串，它显示在对话框的中部， 能自动环绕。 ➢Caption 参数类型与 Text 参数相同，它只是作为弹出的信息对话框的标 题，也可以超过255个字符。 ➢Flags 是一个 LongInt 类型的参数，它可以从0 开始取不同的值，使对话 框的可选项不同。它包含四个参数，各项参数如表4-4、表4-5、表4-6和表 4-7所示