第6章上机实训.docVIP

6、建立MDI窗体，并对子窗体进行管理 实训目的 熟练掌握MDI窗体的编程和使用，能设计美观实用的主窗全和子窗体，较熟练的动态增加和关闭子窗体。 实训要求 设计MDI窗体程序，使窗体完成MDI方面的应用。 实训示例 设计MDI主窗体和子窗体，能在主窗体中调用和增加子窗体，实现子窗体菜单合并，主窗体WINDOW菜单等，并将MDI窗本运用于应用程序模块调用方法。 进入DELPHI开发环境 展开WINDOWS的“开始”菜单，选择“程序”-“Borland Delphi 7”-“Delphi 7”，进入DELPHI开发环境。 设置主窗体属性 缺省时DELPHI创建一个项目和一个窗体单元文件，我们在对象查看器中设置窗体的属性，窗体属性设置见下表： 属性属性值属性属性值NameFormMainFont宋体、五号Height330FormStylefsMDIFormWidth400 添加组件 添加MainMenu1,ToolBar1,StatusBar1等组件，为相应组件添加菜单项或按钮等，并为组件设置相应属性值，如下图所示： 建立子窗体 执行“File”菜单下“New Form”菜单项新建一个窗体，Name属性设置为FormChild1，用同样的方法再新建一个窗体，Name属性设置为FormChild2,将它们的FormStyle属性值设置为fsMDIChild，则它们成为FormMain的子窗体。为两个子窗体随时便添加一些不用的组件，以实现不同的功能，如下图所示： 将Project文件中创建子窗体的语句删除，或执行“Project”菜单中“Options”菜单项，选中FormChild1和FormChild2，执行“”按钮，将它们移到右边的“Available Forms”框中。则在程序启动时，不会自动创建FormChild1的FormChild2子窗体，而必须由程序在运行时动态创建。 保存主窗体、子窗体的单元文件分别为“Unit6_ex1.pas” ，“Unit6_ex1_2.pas” ，“Unit6_ex1_3.pas”。 动态建立与释放子窗口 在主窗体FormMain的单元文件中说明使用子窗体的单元。在主窗体的“游戏”菜单中“开始”和“设置”菜单项上分别写好下程序，当执行该菜单项时，系统将动态创建子窗口。 Implementation Uses Unit6_ex1_2,Unit6_ex1_3; {$ *.dfm} Procedure TFormMain.N1Click(Sender:Tobject); Begin Application.CreateForm(TformChild1,FormChild1); End; Procedure TFormMain.O1Click(Sender:Tobject); Begin Application.CreateForm(TformChild2,FormChild2); End; 关闭子窗口时，必须释放掉子窗口所占的内存，而不是让其最小化，则需在子窗体的OnClose事件上写如下程序： Procedure TformChild1.FormClose(Sender:Tobject;var Action:TcloseAction); Begin Action:=caFree; End; FormChild2同上。 菜单合并 主窗体的主菜单中有“游戏”，“查看”，“窗口”，“帮助”等菜单项，将它们的GroupIndex属性值分别设置为0，4，6，8。 子窗体1的主菜单中有“选项”菜单项，将它的GroupIndex属性值设置为2。子窗体2的主菜单中有“设置”菜单项，将它的GroupIndex属性值设置为3。 运行时，最初中显示主窗口的菜单项，当新建子窗口后，就显示合并起来的5个主菜单项，顺序依次是“游戏”，“选项”，“查看”，“窗口”，“帮助”。 在菜单中列出打开的文档 将“窗口”菜单项的Name属性值设为Window1，将主窗体FormMain的WindowMenu属性值选择为Window1，间为将运行时创建的子窗口名挂在“窗口”菜单项之下。 主窗体的“窗口”菜单项设计 如下图： 运行程序 单击工具栏中“Run”按钮运行程序。运行后，单击“游戏”菜单中的“开始”和“设置”菜单项可调用两个子窗体模块。 实训练习 实训练习按题号顺序难??逐级加大。 设计MDI窗体，其中文档子窗体采用同一模板，另外建立两个不同的模块子窗体，并通过主窗体调用它们。 设计MDI窗体，尝试不用文件和数据库的方法，来对两个子窗体中的数据进行相互传递或比较。