lphi程序设计 刘宇君 等 第5章对话框

《lphi程序设计 刘宇君 等 第5章对话框》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章对话框、多窗体和多文档界面的设计教学主要内容常用信息对话框公用对话框多窗体多文档1第5章对话框、多窗体和多文档界面的设计重点、难点信息对话框公用对话框2第5章对话框、多窗体和多文档界面的设计教学目标熟练掌握Delphi信息对话框的使用熟练掌握公用对话框的使用掌握多窗体的设计掌握多文档界面的设计3第5章对话框、多窗体和多文档界面的设计5.1信息对话框5.2公用对话框5.3多窗体设计5.4多文档设计45.1常用的信息对话框5.1.1ShowMessage、ShowMessagePos、ShowMessageFmt1.ShowMessage过程Sh

2、owMessage过程用于显示简单的信息提示，其过程定义如下：procedureShowMessage(constMsg:string);该过程显示一个带有【OK】按钮的简单信息提示对话框。其中，Msg是在信息对话框中出现的提示信息。对话框的标题由工程的名称给出。5ShowMessage过程示例【例5-1】当单击窗体Form1上的命令按钮时，弹出一个信息对话框，并在该对话框中显示“输入数据错误，请重新输入（数据必须是数字字符）！”。6ShowMessagePos过程与ShowMessage过程类似，也是用于显示简单的信息提示，但是该过程可以控制对话

3、框出现的位置，其过程定义如下：procedureShowMessagePos(constMsg:string;X,Y:Integer);其中，Msg是在信息对话框中出现的提示信息，X、Y是对话框在屏幕上出现的位置。2.ShowMessagePos过程7ShowMessageFmt过程与ShowMessage过程类似，也是用于显示简单的信息提示，但是该过程可以控制输出信息的格式，其过程定义如下：procedureShowMessageFmt(constMsg:string;Params:arrayofconst);其中，Msg是格式字符串，Param

4、s是与Msg格式字符串相匹配的信息数组。3.ShowMessageFmt过程8Msg格式字符串的格式为：%[index:][-][width][.prec]type格式控制符必须以％打头，后跟一个类型说明符。[]中的参数为可选项，index:表示被格式化信息数组的下标，缺省设置为所有的对象都格式化；“-”号表示输出的信息左对齐，缺省设置为右对齐；width表示被格式化对象的的长度，.Prec表示被格式化对象的精度；type表示类型说明符。参见P1193.ShowMessageFmt过程9showmessagefmt('ch1=%-6dch2=%6x

5、',[66,66]);showmessagefmt('ch3=%-8.2f,ch4=%-6.3e',[23.698,658.6589]);showmessagefmt('ch5=%s,ch6=%n,ch7=%m',['jsktew',9856223.658,36.983]);ShowMessageFmt过程示例101.MessageDlg函数MessageDlg函数用于显示比较丰富的信息提示，除了显示提示信息之外，还给出对话框中命令按钮类型及显示的图标样式，其函数定义如下：functionMessageDlg(constMsg:string;Dlg

6、Type:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:Longint):Word;其中：Msg：给出提示信息的内容DlgType：给出对话框中显示的图标样式，以表达不同的信息5.1.2MessageDlg、MessageDlgPos函数11其中：Msg：给出提示信息的内容DlgType：给出对话框中显示的图标样式，以表达不同的信息Buttons：给出对话框中出现的按钮类型HelpCtx：定义帮助按钮打开的上下文帮助文件的ID，按F1键也可以打开帮助文件MessageDlg函数可以返回一个值，当用户单击了不同

7、的按钮其函数返回值是不同的，用户可以根据其返回值做进一步的处理。参见P1201.MessageDlg函数12MessageBoxPos函数与MessageBox函数类似，但该函数可以控制信息对话框出现的位置。其函数定义如下：functionMessageDlgPos(constMsg:string;DlgType:TMsgDlgType;Buttons:MsgDlgButtons;HelpCtx:Longint;X,Y:Integer):Word;其中，参数Msg、DlgType、Buttons、HelpCtx与MessageDlg中的一致，X、Y

8、控制对话框出现的位置。2.MessageDlgPos函数13【例5-2】当单击窗体Form1上的“退出”按钮时，弹出一个询