Delphi 程序设计-课件 第八章 界面设计新.pptVIP

第8章 界面设计 教学目的 ? 了解菜单、工具条、对话框、文档窗体在应用程序中的作用 ? 掌握菜单编辑器的使用方法 ? 掌握创建工具条的基本方法 ? 掌握状态栏的使用方法 ? 掌握内置对话框的使用方法 ? 掌握单、多文档窗体的使用方法 ? 掌握菜单和工具条按钮事件驱动的方法 Windows操作环境中的应用程序都包含较为丰富的菜单、工具条、对话框等，为用户的操作提供了便利条件。Delphi 7 为用户界面设计提供了一个良好而简便的操作平台，让程序设计人员能方便地设计出菜单、状态栏、对话框、工具栏等用户界面，用户只要掌握了这些应用工具的设计方法，就能设计出良好的用户界面。本章主要介绍设计菜单、建立工具栏和状态栏、调用系统内置的各种对话框等方法，同时也将介绍多文档的处理方法。 运行以上程序，验证程序的正确性。如果代码正确，选择【字型】|【加粗】菜单命令后运行的结果如图8.15 所示；在Edit1 中选定需要复制的文本后，【复制】菜单命令可用，单击该命令后，选定的文本送入剪切板中，此时【粘贴】命令可用，再单击【粘贴】菜单命令后，运行结果如图8.16 所示。 8.4.2 【字体】对话框 1. 功能 【字体】对话框用于设置选定文本的字体、字号、字形(规则、粗斜、倾斜、粗体)和颜色。为了方便用户，在Delphi 7中预定义了FontDialog控件，可以让用户从系统安装好的字体中选取所需的字体。 2. 主要属性 该控件的主要属性是Font，它又带了若干个子属性，如表8.10所示。 表8.10 【字体】对话框的Font属性的子属性 设置字体的风格。其下又带有4个选项，分别是【fsBold】(加粗)、【fsItalic】(倾斜)、【fsUnderline】(下划线)和【fsStrick】(删除线)命令。 Style 设置字体的大小。 Size 设置选择的字体名称。 Name 设置字体的颜色。 Color 功能 属性 3. 调用 调用格式：字体框名.Execute； 在程序运行时调用【字体】对话框的方法，与文件型对话框相类似。 【例8.10】 在例8.9 中添加【字体】对话框的应用实例。先将字体对话框FontDialog 添加到窗体中，如图8.29 所示。再通过上述介绍的属性将选择的值应用到选择的文本中。 图8.29 添加了字体对话框控件的窗体 操作步骤如下： （1）为【格式】下拉菜单中的【字体】菜单命令添加鼠标单击事件，代码如下。 procedure TForm1.N15Click(Sender: TObject); begin if fontdialog1.Execute then richedit1.SelAttributes.Assign(fontdialog1.Font); end; （2）运行程序，打开文件，选定要改变字体的 文本，单击【字体】菜单命令，出现【字体】 对话框，如图8.30 所示。在【字体】对话框中， 可选择字体、字型、字号和颜色等，单击 【确定】按钮，结果如图8.31 所示。可以 看到，选中文本的字体已经发生了改变， 而未选中的文本字体并没有改变。 图8.31 【字体】对话框应用举例 8.4.3 【颜色】对话框 【颜色】对话框用于设置选定对象的前景色和背景色，在Delphi 7 中预定义了ColorDialog 控件，和【字体】对话框一样，允许使用者选定颜色。当单击【确定】按钮时，Color 属性会被设定为使用者所选取的颜色，执行的方式与【字体】对话框相同，运行画面如图8.32 所示。 图8.32 颜色对话框 8.4.4 【查找】对话框 1. 功能 【查找】对话框(FindDialog)的功能是让程序的使用者输入某个字符，然后再从当前文本中搜寻到所有该字符。程序员除了要考虑对话框中的选项、输入以及事件的控制外，文字的搜索功能还要自己编写程序来完成。 2. 事件 OnFind：当用户激活了查找对话框后，单击【查找下一个】按钮，程序会自动执行该事件，事件的代码需要用户自己编写。 【例4.12】 【查找】对话框的使用实例。 操作步骤如下： （1）在例4.11 的基础上，加入【查找】菜单命令和【查找】按钮。 （2）选定查找对话框控件，为该对话框的OnFind事件添加代码 。 （3）运行程序，选择【编辑】|【查找】菜单命令，打开【查找】对话框，如图8.35所示。 在文本框中输入要查找的内容，选择查找的方法后，单击【查找下一个】按钮，如果找到输入的文本，被查找的文本会反黑显示，如图8.36 所示。 图8.35 【查找】对话框 图8.36 运行【查找】对话框并找到文本的结果 高等学校计算机基础教育规划教材 Delphi程序设计 8.1 菜单设计 菜单是Window