第5章 多窗体和mdi窗体

《第5章 多窗体和mdi窗体》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章多窗体和MDI窗体福州大学管理学院李美娟信息系统开发工具——Delphi7程序设计教程教学目标知识目标：通过本章教学，学生了解应用程序的界面；理解多窗体和MDI窗体的概念；掌握窗体创建、调用和重用，Delphi的MDI应用程序的设计方法和步骤。能力目标：通过本章教学，培养学生具备开发MDI应用程序的能力，培养学生的实际动手能力以及自学其它系统开发工具的能力。素质目标：应着重培养学生具备理论联系实际，以所学的知识，用于解决实际问题的良好素质。重点：MDI应用程序的设计方法和步骤，建立MDI父子窗体，菜单融合，排列和关闭子窗体，开发MDI应用程序难点：窗体重用，动态创

2、建子窗体，菜单融合，开发MDI应用程序5.1应用程序界面5.2多窗体应用程序5.3MDI窗体主要内容应用程序界面5.1应用程序界面单文档界面（SDI,SingleDocumentInterface)例：记事本应用程序的用户界面一般分为两大类：多文档界面（MDI,MultipleDocumentInterface)例：Word、Excel多窗体应用程序设计5.2多窗体应用程序设计5.2.1窗体的创建5.2.2窗体的调用5.2.3窗体的重用5.2.1窗体的创建问：若要向项目中加入新的窗体有哪些方法?若要向项目中加入新的窗体有2种方法：File

3、New

4、Form使用窗体模板F

5、ile

6、New

7、Other实际的应用程序常包含许多窗体。如果这些窗体都由系统自动创建，会消耗大量的系统资源。因此通常在引入窗体的单元文件后，当程序运行、需要创建窗体时，动态地创建该窗体对象，而当该窗体关闭时，即将该窗体清除出内存，以保证程序的稳定运行。Show方法ShowModal方法问：Show方法和ShowModal方法的差别5.2.2窗体的调用一般地，使用窗体的Show方法调用非模态窗体，使用ShowModal方法调用模态窗体。举例演示问：Delphi如何实现窗体重用？系统提供的窗体模板将自行设计窗体存储成模板使用Frame对象5.2.3窗体的重用创建窗体模板使用

8、窗体模板问：Copy,Inherit和use三者的区别？使用Frame对象使用Frame对象可以将几个组件封装在一起，工作时可以像使用普通组件一样，将这个Frame组件放置在窗体上，还可以设置这个Frame组件的属性和事件。使用Frame对象进行组件封装例5.2File

9、New

10、Frame在Frame窗体中放置组件。File

11、Save保存Frame窗体的单元文件。注意保存该单元文件时要使用自定义的文件名，而不要使用默认的单元文件名unit1，因为会在以后的使用中与Form窗体的单元文件名发生冲突。将所创建的Frame对象加入到组件选项页中。快捷菜单AddtoPalett

12、e5.3MDI窗体MDI窗体MDI窗体的基本概念建立MDI程序动态创建子窗体创建应用程序菜单与菜单融合创建子窗体事件处理过程MDI(MultipleDocumentInterface)多文档界面是1个能够同时处理多重文档的应用程序的用户界面和窗体结构。MDI是1个特殊的多窗体结构。普通的多个相互独立的窗体，虽然也有1个主窗体，但是这个主窗体可以是多个窗体中的任何一个窗体。对于MDI来说，只有父窗体才能被设置为主窗体。它就像1个容器一样包含着许多子窗体，父窗体与子窗体之间是一种隶属关系，而子窗体之间是1种平等关系。5.3.1MDI窗体的基本概念利用Delphi提供的模板创

13、建MDI手动建立MDI父子窗体5.3.2建立MDI程序利用Delphi提供的模板创建MDI(1)启动Delphi7.0，在主菜单上选择【File】

14、【New】

15、【Other】命令。(2)选择“Projects”选项卡中的“MDIApplication”，单击“OK”按钮。（3）在对话框中选择合适的路径保存多文档程序的文件，单击“OK”按钮。（4）添加组件和程序代码。手动建立MDI父子窗体创建父窗体问：要使1个窗体成为父窗体，要设置哪个属性？FormStyle不同属性值的意义？要使1个窗体成为父窗体，只需把它的FormStyle属性设置为fsMDIForm即可。注意：（1

16、）只能在设计阶段确定FormStyle属性（2）应当把父窗口定义为应用程序的主窗体，否则程序编译将会出错。创建子窗体要使1个窗体成为子窗体，只需把它的FormStyle属性设置为fsMDIChild即可。问：如何动态创建子窗体？必须在ProjectOption对话框中将子窗口从左边的Auto-CreateForms放到右边AvailableForms框中去。在需要显示子窗口处用代码来创建它。5.3.3动态创建子窗体procedureTfrmMDIParent.New1Click(Sender:TObject);varChild:TfrmM