应用程序界面设计技术

《应用程序界面设计技术》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第9章应用程序界面设计技术本章要点：多窗体程序设计SDI应用程序设计MDI应用程序设计变量的作用域9.1循序渐进学理论9.1.1多窗体程序的设计1．为应用程序添加和删除窗体新建一个Delphi项目时，项目中只有一个名为Form1的窗体，如果要为当前应用程序添加窗体，可通过单击工具栏上的新建窗体“”按钮来实现。如果想把当前项目中的某窗体去除，可通过单击工具栏上的移去文件“”按钮来实现。2．窗体间切换切换方法是单击工具栏上的查看窗体“”按钮。3．设置主窗体和自动创建窗体所谓主窗体是指程序开始运行时出现的窗体，新建一个Delphi项目

2、时，第一个窗体默认为主窗体，但主窗体可以重新设定。设定方法是执行【Project】→【Options】命令。【例9-1】编写一个调查用户购买商品的应用程序。程序运行时将出现一个调查窗体供用户输入信息，如图9-5所示。用户输入信息后按【提交】按钮将出现确认窗体，显示用户输入的信息，如图9-6所示。在该窗体上，用户按【确认】按钮将退出应用程序，如果用户按【重填】按钮将又回到图9-5所示的调查窗体等待用户输入信息。图9-5程序运行界面（一）图9-6程序运行界面（二）9.1.2单文档（SDI）应用程序设计技术【例9-2】利用Delphi提供的模

3、板创建一个标准的SDI应用程序。创建步骤如下：（1）执行【File】→【New】→【Other】命令，将会出现【NewItem】对话框，在该对话框中选中选项卡【Projects】，再选中图标【SDIApplication】，然后按【OK】按钮。将会出现【选择目录】对话框。（2）在【选择目录】对话框中选择SDI应用程序需保存的路径，然后按【OK】按钮，系统将自动创建一个标准的单文档应用程序。9.1.3多文档（MDI）应用程序设计技术1．多文档应用程序的概念与单文档应用程序相对应，多文档应用程序是允许在一个主窗体中创建多个子窗口的应用程序。

4、MDI应用程序允许用户同时显示多个文档，每个文档显示在它自己的窗口中。文档或子窗口被包含在父窗口中，父窗口为应用程序中所有子窗口提供工作空间。子窗体就是普通窗体。一个应用程序可以包含许多相似或者不同样式的子窗体。在运行时，子窗体显示在父窗体工作空间之内，且不能移出父窗体。当子窗体最小化时，它的图标显示在父窗体的工作空间之内，而不是在任务栏中。2．通过模板创建MDI应用程序【例9-3】利用Delphi提供的模板创建一个标准的MDI应用程序。应用模板创建MDI应用程序的步骤如下。（1）执行【File】→【New】→【Other】命令，将会出

5、现【NewItem】对话框，在该对话框中选中选项卡【Projects】，再选中图标【MDIApplication】，然后按【OK】按钮。将会出现【选择目录】对话框。（2）在【选择目录】对话框中选择MDI应用程序需保存的路径，然后按【OK】按钮，系统将自动创建一个标准的多文档应用程序。3．用户从头开始创建MDI应用程序需注意的几个要点（1）创建主窗体一个MDI应用程序有一个主窗体，用来作为其它窗体的父窗口。要把某窗体设置为主窗体，需把它的FormStyle属性值设置为“fsMDIForm”。（2）创建子窗体一个MDI应用程序可能有一个或多

6、个不同风格的子窗口，每一种子窗口均需创建一个子窗体。要创建子窗体，首先应把窗体添加到应用程序中，然后把它的FormStyle属性值设置为“fsMDIChild”。（3）创建应用程序菜单和菜单融合为进行菜单融合，需设置窗体的Menu属性和菜单项的GroupIndex属性。如果窗体有多个菜单组件，运行时可通过以下代码选择当前使用的菜单组件：Form1.Menu:=菜单组件名;GroupIndex属性决定出现在菜单条中各菜单项的位置。GroupIndex属性的缺省值是0，其取值及含义如下：①数值越小，菜单的位置越靠左。②若需替换主菜单中的某一

7、菜单项，则将子菜单相应菜单项的GroupIndex设为与之相等的值。③将同一窗体的多个菜单项的GroupIndex设为相同值，原有的排列顺序在菜单融合时将保存不变。④若要在菜单融合时插入菜单项，则需要在主菜单中预留GroupIndex数值“位置”。如主菜单的两菜单项数值为0、2，则子菜单中GroupIndex数值为1的菜单在融合时将插入其中。（4）运行时子窗体的创建和关闭通常在设计时要创建子窗体的模板，在程序执行时通过子窗体的Create方法创建子窗体。要关闭子窗体，可使用子窗体的Close方法。此时将产生子窗体的FormClose事件

8、，如有以下的FormClose事件程序：procedureTform1.FormClose(Sender:Tobject;varaction:TcloseAction);beginaction:=cafre