文档介绍：第4章对话框和多窗体设计
内容提要
使用Delphi7内建的信息对话框函数
Delphi 通用对话框
多重窗体设计
Delphi7内建的对话框函数
在Delphi 7中,提供了几个直接显示内建信息对话框的函数。这些函数分别是ShowMessage,ShowMessagePos,ShowMessagFmt,MessageDlg,MessageDlgPos,MessageDlg,MessageDlgPos,MessageDlgPosHelp,MessageBox,InputBox和InputQuery等。下面就分别介绍这些对话框。
ShowMessage函数
ShowMessage函数的定义如下:
Procedure ShowMessage(Const Msg:String);
该函数是最简单的信息对话框,它只有一个参数。
ShowMessage函数对话框只能显示一个提示信息和一个[OK]按钮。
图4-1 ShowMessage函数弹出的对话框
ShowMessagePos函数
ShowMessagePos函数ShowMessage函数也类似,不过多了一个显示格式参数。通过该函数可以输出一些字符串进行格式化后的值。
ShowMessagePos函数定义如下:
Procedure ShowMessagePos(Const Msg::string;X,Y: Integer);
以下程序利用 ShowMessagePos 函数将消息框定位在(100,100)的坐标上:
ShowMessagePos('显示位置在100,100的坐标上' ,100,100);
ShowMessageFmt 函数
ShowMessageFmt函数用于字符串的格式化输出。
ShowMessageFmt函数定义如下:
Procedure ShowMessageFmt(Const Msg:String;Params:Array Of Const);
其中,Msg参数的一般形式为
’普通字符(提示字符)格式控制符’
ShowMessageFmt 函数使用的类型说明符
参见P119,表4-1
MessageDlg 函数
MessageDlg 函数可以提供比较丰富的信息,比如显示的消息对话框类型,按钮类型等,还能够得到用户的响应信息。其定义如下:
Function MessageDlg (Const Msg :String ;DlgType :TMsgDlgType ;Buttons :TMsgDlgButtons ;HelpCtx :LongInt ) :Word ;
其中:
Msg: 表示对话框的提示信息。
DlgType: 通过它可以在信息对话框中设置一定的图标来表达不同的意义,比如警告、询问等。其取值如表4-2 所示。
Bottons: 是一个集合类型,它控制在信息对话框中可能出现的按钮名称。其取值如表4-3所示。
HelpCtx :用于定义帮助按钮打开的上下文帮助文件的ID,按F1也可打开帮助文件。
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);
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 有特殊的含义,它将帮助信息对话框与之相对应的帮助文件建立联系。
MessageBox 函