《Delphi程序设计》 教学课件 第6章.pptx

第6章多窗体程序设计;6.1 多个Form窗体程序设计;New Item对话框;（2）选择Form图标，单击“OK”按钮，即可 在当前项目中添加一个名称为Form2的窗体， 该窗体与Form1窗体在功能与特性上完全一致。通过这样的方法，可以在项目中添加多个Form窗体。;其中，对象表示通过Create方法生成的新的对象，该对象由给定的对象类生成。 【例6-1】通过代码创建一个与当前窗体相同的窗体，并指定新窗体的名称与标题。;程序运行效果如图6-2所示。;6.1.2 窗体操作;数显示窗体称为模式显示，只能显示指定的窗体，不能切换到其他窗体。 2）隐藏窗体;操作步骤如下： 执行File→New→Form命令，在当前项目中添加一个新的窗体Form2，其属性值均取默认值。 在Form1窗体中添加2个Button组件，将 Caption属性分别设置为“显示Form2”和“隐藏Form2”。 执行File→Use Unit命令，弹出Use Unit，如下图所示。选中Unit2单元，单击OK按钮， 在Form1窗体中声明Form2窗体。;Use Unit对话框 （4）为“显示Form2”按钮的onclick事件添加如下代码，控制Form2窗体的显示。;procedure TForm1.Button1Click(Sender: TObject); begin;3）关闭窗体;6.1.3 多个窗体间的数据传递;执行File→New→Unit命令，在当前项目中添加一个Unit程序单元，然后执行File→Save As命令，将其重命名为CommUnit.pas文件并保存。 在CommUnit单元中按如下格式定义变量。;下面通过实例介绍如何使用公共变量在窗体之间传递传递数据。 【例6-3】设计一个成绩录入系统，其包含一个“控制程序”主窗体、一个“录入成绩”主窗体和一个“计算成绩”窗体。通过主窗体可以打开各个窗体以及退出程序。“录入程序”窗体用于录入语文、数学和外语课程的成绩，录入完毕后可返回主窗体。“计算成绩”窗体用于计算总成绩与平均成绩，同样也可以返回主窗体。 操作步骤如下： （1）在Form1窗体中添加3个Button组件，设计如下图（a）所示的程序界面。;（2）执行Form→New→Form命令，在当前项 目中添加一个窗体，设计窗体的界面如下图（ b）所示。;执行Form→New→Form命令，在当前项目添加一个窗体，设计界面如上图（c）所示。 执行File→New→Unit命令，在当前项目添加一个Unit单元，执行如下代码，在单元中???明公共变量。;执行File→Save As命令，将该Unit单元命名为CommonUnit.pas并保存。 选中“控制程序”窗体，执行File→Use Unit命令，在打开的Use Unit对话框中选中 Unit2单元，然后单击OK按钮，完成对Unit2单元的引用操作。;（8） 为“计算成绩”按钮的onclick事件添加如下代码，实现单击“计算成绩”按钮时能打开“计算成绩”窗体。;（10）选中“录入成绩”窗体，执行File→Use Unit命令，在Use Unit对话框中选择CommUnit单元。选中“返回”按钮，在其onclick事件中添加如下代码，实现录入数据并返回控制窗体的功能。;（11）选中“计算成绩”窗体，执行File→Use Unit命令，在Use Unit对话框中选择中 CommUnit单元。在该窗体的OnCreate事件中添加如下代码：;6.2 多文档程序设计;父窗体 父窗体是程序的基础，一个多文档程序只能有一个父窗体，所有的子窗体必须在父窗体中运行且受父窗体的控制，任何子窗体都不能超出父窗体的范围。关闭父窗体时，其所有的子窗体同时被关闭。 子窗体 一个多文档程序中可以有多个子窗体。可以在子窗体中添加组件，使其成为与程序进行交互的对象。在多文档程序中，所有的子窗体都隶属于一个父窗体，由父窗体控制，子窗体与父窗体共同实现程序的功能。;6.2.2 创建多个窗体;（2）执行File→New→Form命令，在当前项目中添加一个窗体Form2，将Form2窗体的FormStyle属性设置为fsChild，表示将其设置为子窗体。 至此，完成多文档程序界面的设置，当程序执行时，可以得到下图所示界面。;2.创建子窗体 如果希望多文档程序启动时仅显示父窗体 ，由用户决定何时打开子窗体，以及打开多少个子窗体，则需要通过代码来控制子窗体的打开。一般，先在父窗体中添加菜单和工具栏，然后通过菜单或工具栏中的“新建”命令来新建一个子窗体。 【例6-4】创建一个MDI应用程序，在父窗体中通过“新建”菜单来新建一个子窗体。 操作步骤如下： （1）将当前Form窗体的FormStyle属性值设置为fsMDIForm。;在当前窗体