第4章 菜单、工具栏与状态栏 Delphi程序设计(第二版)电子教案.ppt

4.3.2 MessageDlg函数 4.3.2 MessageDlg函数 4.3.2 MessageDlg函数 1．Delphi应用程序按窗体结构可分为： （1）单文档程序SDI（如记事本）：只有一个窗口处理一个文件。 （2）多文档程序MDI（如Word）：有多个窗口可同时打开多个文件。 2．Delphi应用程序按窗体类型可分为： （1）普通窗体：窗体属性FormStyle= fsNormal （2）MDI窗体： 1）父窗体：FormStyle= fsMDIForm 2）子窗体：FormStyle=fsMDIChild 4.5 MDI多文档界面程序设计 当设置FormStyle为普通类型fsNormal时，主窗体调用子窗体有两种方式：有模式和无模式。 （1）有模式窗体调用: ShowModal 当打开有模式窗体后，用户只能在本窗体内操作，直到用户关闭了这个窗体。 （2）无模式窗体调用:Show 当打开无模式窗体后，用户可以在无模式窗体和其他窗体之间切换。 4.5.1普通窗体调用模式 实验演示：在工程中创建二个窗体Form1与Form2。 （1）在Form1窗体中放置按钮Button1 在Button1的单击事件处理过程中输入： procedure TForm1.Button1Click(Sender: TObject); begin Form2.ShowModal; //有模式窗体调用Form2 end; 在implementation部分输入： uses unit2; 4.5.1普通窗体调用模式 （2）在Form2窗体中放置一个Button1按钮。 在Button1的单击事件处理过程中输入： procedure TForm2.Button1Click(Sender: TObject); begin Close; end; 执行程序按有模式方式调用Form2窗体后，用户只能在Form2本窗体内操作，直到用户关闭了这个窗体。 4.5.1普通窗体调用模式 （3）将调用Form2的模式改为无模式，即修改程序如下： procedure TForm1.Button1Click(Sender: TObject); begin Form2.Show; //无模式窗体调用Form2 end; 则执行程序调用Form2窗体后，用户可在Form2或Form1两窗体中随意操作。 4.5.1普通窗体调用模式 1．主窗体与子窗体 （1）主窗体的FormStyle属性为fsMDIForm； （2）子窗体的FormStyle属性为fsMDIChild。 应用程序只能有一个MDI主窗口，用于控制子窗口的调用、排列和关闭等动作。 子窗口只能显示在主窗口的客户区。 主窗口上通常有主菜单、工具栏、状态栏等组件，用于进行切换子窗口、显示子窗口状态等操作，而子窗口上则可添加用于实际操作的组件。 4.5.2 MDI窗体调用方式 2．窗体的自动创建方式 应用程序启动时，系统自动创建窗体。 如，有主窗体FormMain和子窗体FormChild，则在工程文件Project中系统用Application变量创建主窗体与子窗体。 begin Application.Initialize; //初始化 Application.CreateForm(TformMain,FormMain); //创建主窗体 Application.CreateForm(TformChild,FormChild); //创建子窗体 Application.Run; //运行窗体程序 End. 4.5.2 MDI窗体的创建方式 在实际MDI应用程序中，一个主窗口通常有多个子窗体。默认情况下，这些子窗体在系统启动时建立，这将占用较多的内存空间。 通常情况下，应在使用子窗体时才为子窗体分配内存空间，用完回