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

第5章 对话框、多窗体和多文档界面的设计 教学主要内容 常用信息对话框 公用对话框 多窗体 多文档 第5章 对话框、多窗体和多文档界面的设计 重点、难点 信息对话框 公用对话框 第5章 对话框、多窗体和多文档界面的设计 教学目标 熟练掌握Delphi信息对话框的使用 熟练掌握公用对话框的使用 掌握多窗体的设计 掌握多文档界面的设计 第5章 对话框、多窗体和多文档界面的设计 5.1 信息对话框 5.2公用对话框 5.3 多窗体设计 5.4 多文档设计 5.1 常用的信息对话框 5.1.1 ShowMessage、ShowMessagePos、ShowMessageFmt 1. ShowMessage 过程 ShowMessage过程用于显示简单的信息提示，其过程定义如下： procedure ShowMessage(const Msg: string); 该过程显示一个带有【OK】按钮的简单信息提示对话框。其中，Msg是在信息对话框中出现的提示信息。对话框的标题由工程的名称给出。 ShowMessage 过程示例 【例5-1】当单击窗体Form1上的命令按钮时，弹出一个信息对话框，并在该对话框中显示“输入数据错误，请重新输入（数据必须是数字字符）！”。 4.4.3 状态栏创建实例 【例4-4】在例4-3中添加状态栏，使得状态栏中有3个面板，第一个面板显示制作者单位，第二个面板显示当前日期，第三个面板显示当前的时间。 【例4-4】程序 procedure TForm1.Timer3Timer(Sender: TObject); begin statusbar1.Panels[0].Text :=制作单位：计算机工程系; statusbar1.Panels[1].Text :=日期：+datetostr(date); statusbar1.Panels[2].Text :=时间：+timetostr(time); end; 作业 该程序实现了简单的点菜功能 下面该程序实现的功能进行简单的说明： 1) 例程的主界面是一个对话框样式的窗体，通过主菜单可以实现点菜的功能，并将点的菜名列在窗体右边的Memo组件中。 2) 在窗体中单击鼠标右键，将出现一个弹出式菜单，可以点当天的优惠菜。 3) 窗体上方有一个工具栏，点击工具栏中的加速按钮可以实现快速点菜。对于每个加速按钮，在菜单中都有相应的命令。 下面该程序实现的功能进行简单的说明： 4) 在窗体下方有一个状态栏，上面有两个面板。当鼠标在窗体中移动的时候，第一个面板根据相应的鼠标位置显示对应的信息，例如当鼠标移动到某个加速按钮上时，第一个面板显示对应菜名的说明。在第二个面板中显示的是当前点过的菜的总价钱。 5) 在窗体中间有两个按钮。通过“点菜完毕(F) . . .”按钮，可以将Memo组件中已经点的菜输出打印；通过“重新点菜( R )”按钮，可以将Memo组件中的内容清空，同时将状态栏中第二个面板的总价格清为零。 下面该程序实现的功能进行简单的说明： 【例5-11】设计一个MDI应用程序，该程序包含一个MDI主窗体。通过主窗体的菜单动态创建若干个子窗体，并可以调整子窗体的排列方式。 MDI程序设计示例 图5-24 【例5-11】菜单 procedure TForm1.N4Click(Sender: TObject); //“新建”菜单事件 begin Application.CreateForm(TForm2, Form2); form2.Caption:=Form + inttostr(i+1); form2.FormStyle :=fsMDIChild; //将动态创建的窗体设为子窗体 i:=i+1; end; 【例5-11】程序 procedure TForm1.N2Click(Sender: TObject); //“层叠”菜单事件 begin form1.Cascade ; end; ?procedure TForm1.N5Click(Sender: TObject); //“水平平铺”菜单事件 begin form1.TileMode:= tbHorizontal ; form1.Tile ; end; 【例5-11】程序 procedure TForm1.N6Click(Sender: TObject); //“垂直平铺”菜单事件 begin form1.TileMode:= tbVertical ; form1.Tile ; end; 【例5-11】程序 3. 从【Win32】面板中选中ImageList组件，在窗体上创建该组件的对象ImageList1，通过该组件为工具栏的每个按钮配置相应