Delphi程序设计及实验指导(第二版)-第6章 窗体设计

6.2.2 TPageControl组件 组件
1．用途 ．
TPageControl页面组件位于组件面板的Win32选项卡上（如图4-4所 示），用来制作笔记本式的页面标签，是个可多页重叠的显示页 面，用户可通过单击组件顶部（或底部）的页面标签进行页面之 间的切换。
6.2 多页面窗体
2．主要属性 ．
6.1 创建窗体
2．编辑组件 ．
在选中了要进行编辑的组件之后，就可以进行编辑了。 （1）改变位置和大小 选中组件，将鼠标箭头放在组件周围八个小方块的某个方块上， 按住鼠标并拖动即可改变形状和大小。 （2）对齐组件 同时选中要对齐的几个组件，然后选择Edit菜单下的Align命令，或 者选择快捷菜单上的Align命令。
掌握窗体创建的方法 掌握多页面窗体的设计方法 掌握分割窗体的设计方法 了解多文档界面的组成，掌握设计方法
6.1 创建窗体
在Delphi 8 for .NET应用程序的开发过程中，创建窗体是程序 设计的第一步。在Delphi 8 的集成开发环境中，选择主 菜单的File→New→VCL Forms Application，即可新建一个应用 程序.这时系统会自动产生一个窗体，默认名为Form1。
6.2 多页面窗体
3．主要方法 ．
（1）DoAddDockClient方法：如果在运行时向组件增加一个新页 面，那么将调用该方法以完成各页面的必要调整。 （2）FindNextPage方法：该方法返回在TPageControl组件中指定 页面的前一页或下一页。 （3）SelectNextPage方法：该方法用来指定当前页面之前或之后 的页面为活动页面。
6.1 创建窗体
（12）Menu属性：该属性可以定义窗体的菜单。如果用户希望在 不同的情况下显示不同的菜单项目，只需要将Menu属性设置成要 显示的菜单即可。 （13）PopupMenu属性：该属性用来设置对应的快捷菜单。当该 窗体被激活后，右击将显示一个和菜单名称相一致的快捷菜单。 要显示菜单，用户必须将该菜单的AutoPopup属性设置为true。 （14）Position属性：该属性用来描述窗体第一次显示时的屏幕位 置和尺寸，该属性的取值和含义见表6-1。 （15）WindowState属性：该属性定义了窗口的初始化状态，决定 窗口在第一次显示时是以普通形式（wsNormal）、最大化（ wsMaximized）还是最小化（wsMinimized）显示，其默认值为 wsNormal。
3．设置页面的属性 ．
设置页面的相关属性，如页面标签将显示成多行，还是只显示一行，设 置每一个标签的标题等。
4．设置页面的界面 ．
每一个页面的界面具有相同的系统菜单，但是每一个标签包含的组件不 相同。因此，根据情况设置每一个页面的界面，添加相应的组件，设置 组件的属性。
6.2 多页面窗体
【例6-3】在信息项目较多的情况下，可使用TPageControl组 件来组织信息，将人事管理系统中的部门管理模块、职工管 理模块、信息查询模块安排到TPageControl组件的3页上。
6.3 分割窗体
6.3.1 TSplitter组件 组件
TSplitter分割条组件 位于组件面板的Additional页面中，用于 放在窗体上两个相邻的组件之间，允许用户在运行时改变组 件的大小，与分割条相邻组件的一边与窗体对齐并填满整个 客户区，分割条的Alignment属性与它相邻的空间的属性相同 。 若Align属性为alTop将创建一个水平分割条，若Align属性为 alLeft将创建一个垂直分割条。
6.1 创建窗体
2．主要属性 ．
（1）Active属性：该属性决定窗体是否为活动窗体。如果该属性 为true，则窗体成为活动窗体。 （2）ActiveMDIChild属性：该属性为只读属性，用来在多文档的 应用程序中指定拥有输入焦点的MDI子窗口。 （3）AutoScroll属性：该属性用来设置在窗体上是否增加滚动条。 （4）BorderIcons属性：该属性用来定义出现在窗口标题栏中的按 钮，其取值有4种：biSystemMenu（包含系统菜单）、biMinimize （包含最小化按钮）、biMaximize（包含最大化按钮）和BiHelp（ 包含帮助按钮）。 （5）BorderStyle属性：该属性用来定义窗体的边框形式，其取值 有6种：bsDialog（对话框边框）、bsSingle（标准边框，不可拖动 改变大小）、bsNone（无边框）、bsSizeable（标准边框）、 bsSizeToolWin（类似对话框，只有一个关闭按钮，小边框）、 bsToolWindow（类似bsSizeToolWin，不可拖动改变大小）。 注意：不能将MDI子窗体的边框设置成bsDialog和bsNone。
6.2 多页面窗体
6.2.3 多页面窗体的设计
有如下4种方法可以建立标准的多页面窗体：
使用Win32的标签组件TTabControl。 使用Win32的页面组件TPageControl。 使用TNoteBook和TTabSet组件。 使用TTabbedNotebook组件。
这几种方法的主要区别在于它们的用户界面的不同， TTabControl和TPageControl是 Win32的通用组件，它们只能运 行在Win32系统上，具有Windows标准风格，在一般情况下应 当使用它们。Delphi自己提供的组件既可以应用于Win32，也 可以应用于Windows 3.1，并且具有独特的样式。
6.2 多页面窗体
6.2.1 多页面窗体的概念
在一个应用程序运行时，打开一个主窗体，这个主窗体又由 至少两个文档窗体界面组成，而且这些文档窗体的外观基本 一致，具有共同的系统菜单，每个文档窗体彼此之间可以通 过单击文档窗体标签进行相互切换，在Delphi中把使用这种技 术的窗体称作多页面窗体。
6.2 多页面窗体
6.1 创建窗体
3．删除、复制、剪切与粘贴组件 ．删除、复制、
选中要删除的组件之后，按Ctrl+Del组合键或者使用Edit菜单中的 Delete命令便可删除组件。 使用Edit菜单中的Undelete命令可恢复被删除的组件，但这必须在 删除组件后没有做任何其他编辑工作的情况下才能进行，否则将 无法恢复。 可以使用Edit菜单和快捷菜单中的复制、剪切、粘贴等其他功能， 来复制、剪切、粘贴组件。
6.1 创建窗体
注意：
不可视组件不能任意改变大小和形状，它们以默认大小和形状显示，如 菜单和计时器等。 用户可以在窗体上同时放置多个同一类组件，方法是：选择组件时按住 Shift键，然后连续地放入该组件。要脱离连续放置状态时，用鼠标单击 组件面板左侧的箭头标志按钮即可。
【例6-1】在窗体内放入1个标签、3个单选按钮和2个命令按钮，窗 体界面如图6-2所示。
6.2 多页面窗体
多页面窗体是一种在一个应用程序中同时打开两个或 两个以上窗体的界面形式，常用的Windows应用程序 中的标签对话框，都采用了这种技术。一个标签对话 框由至少两个标签页组成，它最大的用途是将大量的 组件按功能分类放置到不同的窗体页面中，用户可以 通过单击标签在不同的页面之间切换。下面介绍多页 面窗体的概念、TPageControl组件和多页面窗体的设 计。
6.1 创建窗体
（6）Caption属性：该属性用来设置窗体标题栏上的标题，默认值 为Form1。 （7）Color属性：该属性用来设置窗体的背景颜色。 （8）Font属性：该属性用来设置窗体中文字的字体、颜色和字号 等。 （9）FormStyle属性：该属性用来定义窗体风格，默认值为 fsNormal，其取值有4种：fsNormal（普通窗口）、fsMDIChild（ MDI子窗口）、fsMDIForm（MDI主窗口）、fsStayOnTop（窗体始 终显示在其他窗口之上）。 （10）Handle属性：该属性为访问窗口提供了一个句柄。使用该 句柄可以调用Windows API函数来操作窗口。 （11）Icon属性：该属性用来指定标题栏中显示的图标。
6.2 多页面窗体
下面介绍使用TPageControl组件设计多页面窗体。
1．创建TTabSheet ．创建
TPageControl中包含了TTabSheet，而TTabSheet还可以包含其他的组件 。
2．页面间的切换 ．
可以通过单击要选择的页面，或者选择快捷菜单中的Next Page命令或 Previous Page命令在各个页面间浏览，也可以通过设置TPageControl的 ActivePage属性来实现页面间的切换
6.1 创建窗体
6.1.1 TForm组件 组件
1．用途 ．
TForm组件是Delphi应用程序的基础。该组件为开发应用程序提供 了一个设计平台，是Delphi窗口程序开发的核心。当创建一个新的 工程时，Delphi将自动建立一个默认的空白窗体，这个空白窗体就 Delphi 是TForm组件的一个实例。
6.2 多页面窗体
6.3.2 分割窗体的设计 下面将通过例子来演示如何在程序中使用分割条来分 割窗体。
首先创建新的窗体如图6-12所示，在窗体中加入一个TMemo 组件，将它的Align属性设为alLeft；添加TSplitter组件，设置 它的Align属性为alLeft，设置Beveled属性为true；在分割条右 边的窗体中加入一个TImage组件，设置其Align属性为alClient ，并为该组件添加图像，设置AutoSize属性为true，Center属 性为true，Stretch属性为true。 然后选择Run→Run运行程序，当鼠标移动到分割条上时，鼠 标就会改变形状，用户可以拖动分割条改变窗体。 分割条还可以用于水平分割，其方法与垂直分割相似，只需 将Align属性设置为alTop即可。
（1）ActivePage属性：该属性用来指定组件的当前显示页面，选 择时用户只需单击相关的页面标签即可，但一次只能选择一页， 即组件的当前页只能有一个。 （2）MultiLine属性：该属性决定页面标签如何显示。设置为true 时，如果组件上的多个页面在一行显示不下，那么页标签将显示 成多行。设置为false时，页标签只能显示在一行上，如果一行显 示不下，将会增加一个滚动条，看不见的页面通过滚动条翻阅。 （3）Pages属性：该属性表示组件包含的所有页面。通过该属性 及下标可访问组件的特定页面，第1页的下标为0，第2页的下标为 1，依此类推，组件上的每页都是一个TTabSheet对象。 （4）PageCount属性：该属性确定在Pages属性中包含的页面数。 如果MultiLine属性设置为false，那么对用户来说并非所有的页面 都是可视的。 （5）TabPosition属性：该属性决定标签在组件的上方还是下方。