数据库设计与开发实验1.docVIP

实验3 3.6.1 实验目标 进一步熟悉Delphi集成开发环境（IDE） 熟悉窗体和菜单的使用 熟悉Delphi应用程序源代码的编写 3.6.2 实验内容 完成记事本应用的部分功能。 3.6.3 实验步骤 第一步：打开第二章实验中的记事本工程。在主界面上放置一个主菜单控件，双击主菜单控件打开菜单编辑器，设计如下菜单。注：Ctrl+*为快捷键，可通过菜单项的ShortCut属性设置。 图3.10 记事本程序主菜单 第二步：在主窗体上放置一个Memo控件，并将其Align属性设置为alClient，并通过属性设置为Memo控件增加横向纵向滚动条、将其中的Memo1字样删除。 第三步：实现新建功能。编写“新建”菜单项的事件过程，并编写代码清除Memo中的文字内容。 第四步：实现退出系统功能。编写“退出系统”菜单项的事件过程，并编写代码关闭主窗体，即可退出系统。 第五步：实现自动换行功能。编写“自动换行”菜单项的事件过程，并编写代码，在代码中对菜单项的checked属性进行判断，如果为false则将Memo控件的滚动条设置为只有纵向滚动条，如果为true则将Memo控件的滚动条设置为双向；同时改变菜单项控件的checked属性值。 第六步：通过菜单启动“查找”窗体、“替换”窗体、“字体”窗体。分别编写三个菜单项的事件过程，并将“查找”窗体和“替换”窗体采用无模态方式显示、“字体”窗体采用模态方式显示。要求显示的子窗体位于主窗体的中间位置。 注：“查找”和“替换”窗体对象在程序启动时就已经创建，所以不需要在代码中将窗体对象创建，只要将其显示即可；“字体”窗体对象在程序启动时没有创建，需要在代码中先创建窗体对象，在以模态方式显示，关闭后将窗体对象释放。 3.6.4 实验结果分析 问题1：在设计菜单时，如何实现分隔线？如何实现字符下的下划线（可通过ALT+字符访问菜单功能）？菜单项的checked属性在不同取值情况下有什么区别？ 答：在Caption中输入-即可实现分隔线；在字符前加符号即可实现字符下的下划线；checked取true时，功能可用于选择，取false时不可用。 问题2：如何给Memo控件增加滚动条？如何在设计时将Memo控件中的文字内容删除？如何在代码中将Memo控件中的文字内容删除？ 答：在Memo中选ScrollBars中的下拉框可以增加滚动条；选Lines中的Tstrings，然后删除里面的Memo文字内容即可；写代码用以下代码即可：Memo1.Lines.delete(行数); 问题3：什么方法可以关闭窗体？如何是窗体启动时就处于最大化状态？如何将子窗体的显示位置设置到主窗体的中间？如何释放窗体对象的内存资源？说明模态和无模态窗体的区别。 答：写代码：self.close即可关闭窗口；在WindowState（窗体状态）中选择wsMaximized即可使窗体最大化显示；选择Position中选择poMainFormCenter，即可将子窗体的显示位置设置到主窗体的中间；Release和Free可释放窗体内存资源，Release等窗体所有事件都执行完成了再释放窗体，而free不管事件的执行就立即释放窗体； 通过show方法显示的窗体我们称之为无模态窗体，这种窗体将独立运行在一个线程中，调用该方法的代码会继续往下运行，如代码3.4所示，显示form1后马上被关闭。如果是在另外一个窗体的代码中运行该方法，则两个窗体都可被激活，因为它们运行在不同的线程中，如代码3.5所示，执行该段代码后，Form1和Form2同时显示，并且都可以被激活，用户可在两个窗体间进行切换。通过showModal显示的窗体为模态窗体，这种窗体将运行在调用代码的同一个线程中，调用该方法的代码不会继续往下运行，如代码3.6所示，显示form1不会被关闭。如果是在另外一个窗体的代码中运行该方法，则只有这个窗体被激活，如代码3.7所示，执行该段代码后，Form1不可被激活，只有Form2可以被激活，用户不能在两个窗体间进行切换。