4 常用组件(VCL Forms)

14
4.2 窗体的组件对象
4.2.1 向窗体中添加组件
(1) 在组件面板的组件栏中单击需要添加的组件， 然后在窗体中需要添加该组件处单击鼠标左键。
(2) 在组件栏中单击需要添加的组件，然后在窗 体中需要添加该组件处拖动鼠标左键，松开鼠标左键后， 组件就以刚才拖动的大小出现在窗体中。 (3) 在组件栏中双击组件，则被双击的组件会自 动添加到当前默认的窗口或容器组件中。

4.10.1 4.10.2 4.10.3 4.10.4 4.10.5 4.10.6
TDateTimePicker 组件...142 ProgressBar组件...150 Timer组件...152 Image组件...154 Chart组件...157 PageControl组件...162
4.4.1 4.4.2 4.4.3 4.4.4 4.4.5

4.5

编辑型组件
Edit 组件...52 MaskEdit 组件...60 LabeledEdit组件...68 Memo 组件...69 RichEdit 组件...74
4.5.1 4.5.2 4.5.3 4.5.4 4.5.5
Name
组件内部引用名。
思考


在程序实现中怎样实现文字的纵向显示
Autosize=True Wordwrap= True 调整Label的宽度
Label组件的常用事件
（1）OnMouseEnter事件 当鼠标移动到标签上时触发该事件。 （2）OnMouseLeave事件 当鼠标离开标签时触发该事件。
4.4 按钮型组件
4.4.1 4.4.2 4.4.3 4.4.4 4.4.5 Button 组件 BitBtn 组件 SpeedButton组件 RadioButton 组件 CheckBox 组件
4.4.1 Button组件
基本命令按钮(Button)在Standard 组件页中
属性名 含 义 Name 按钮的名称，编写程序代码时使用 Caption 按钮的标题，就是按钮上显示的文字。 Enabled • 默认属性值为True • 为False，运行时按钮以浅灰色显示，表明按钮无 效，即按钮不能获得焦点，通过鼠标、键盘或快 捷键均不能触发该按钮的OnClick事件。 Cancel 默认值为 False，当取值为 True 时，无论何时按下 Esc 键，按钮中Taborder中最小的按钮会产生 OnClick Default 当属性值为 True 时，按下 Enter 键，当前按钮产生 OnClick 事件，默认值 为 True
3. 删除窗体中的组件 删除窗体中的组件，有两种常用方法： 方法1： （1）选中要删除的组件。 （2）单击Delete键。 方法2： （1）选中要删除的组件。 （2）选择主菜单中的EditDelete命令。
4. 调整组件的大小和位置 方法1：鼠标操作 选中组件，在组件上按下鼠标左键并拖动。 方法2：键盘操作 选中某个组件后，通过Ctrl +↑、Ctrl+↓、Ctrl +←、 Ctrl+→可以改变组件的位置， 通过Shift +↑、Shift +↓、Shift +←、Shift +→可 以改变组件的大小。

4.11 模板 4.12 安装新组件
4.1 VCL组件概述
1. 组件属性 一：在Object Inspector的Properties中设置组件的 属性值；
二：通过程序语句使组件的属性值在程序运行时动态地 被改变，如： edit1.enabled:=True; Label1.Caption:=“计算机系”； 特殊的属性：嵌套属性，即包含子属性的属性。 一般嵌套属性在Object Inspector窗口中显示时 前面有一个“+”号或“-”号。
组件的常用事件及触发条件
事件名 OnClick OnDblClick OnMouseDown 触 发 条 件
OnMouseMove OnKeyDown OnKeyPress OnKeyUp OnEnter OnExit OnStartDrag OnDragDrop
当鼠标单击时触发本事件 当鼠标双击时触发本事件 当鼠标左键按下时触发本事件 当鼠标移动时触发本事件 当按下任意键（包括组合键）时触发本事件 当按下任意键（单个字符键）时触发本事件 当松开已按下键时触发本事件 当获得焦点时触发本事件 当失去焦点时触发本事件 当开始拖曳时触发本事件 当结束拖曳时触发本事件
3. 组件方法
组件方法：实质上就是函数或过程。 组件的方法是该类或对象类型实例的函数 或过程。每一类组件都有自己的方法，以实现 各种功能。
组件的公共方法




BeginDrag——开始手工拖动 BringtoFront——将组件放在其他所有组件的前面 CanFocus——确定组件是否接受焦点 Create——建立一个新的实例 EndDrag——手动终止拖动 Free——内存中清除对象(窗体调用Release方法) GetTextLen——返回组件的文本(或标题)长度 Hide——隐藏 InsertControl——向当前组件的子组件列表添加新组 件 SetFocus、Focuesd、Show、
标签组件用于在窗体上显示文本，多用于显示提示信 息；也可显示动态文本。 位于Standard选项卡。
属性名 Caption Alignment 含 义
Layout
显示的文本。 设置文字在水平方向的对齐方式，可取下列值： taLeftJustify： 文本在组件中向左对齐显示。 taRightJustify： 文本在组件中向右对齐显示。 taCenter：文本在组件中居中显示。 设置文字在垂直方向的对齐方式，可取下列值： tLTop：文本在组件中靠上显示。 tlCencer：文本在组件中垂直居中显示。 tlBottom：文本在组件中靠下显示。

4.8

容器型组件
GroupBox 组件...111 Panel 组件...112 RadioGroup组件...114
4.8.1 4.8.2 4.8.3

4.9

图形列表组件
TreeView 组件...121 ListView 组件...135
4.9.1 4.9.2

4.10 其他常用控件
Center in window
选中的各控件排列在窗体的中心
5. 设置可视组件的Tab顺序
方法：选择主菜单的EditTable Order. . .命令。在其中 的“Controls listed in tab order”框中选中某组件后， 点击右部的上、下箭头就可改变该组件的TabOrder属性。
6.组件布局的锁定(Edit->Lock Controls) 7.先设置窗体字体，则向窗体添加组件时，组 件的字体默认与窗体相同。后可单独修改 组件字体使其字体与窗体不同，体现个性 化。
4.3 文本型组件
4.3.1 4.3.2 Label 组件 Static Text 组件。
4.3.1 Label组件

4.6

列表框型组件
ListBox 组件...78 ComboBox 组件...86 CheckListBox组件...95
4.6.1 4.6.2 4.6.3

4.7 滚动型组件 4.7.1 ScrollBar 组件...98 4.7.2 ScrollBox 组件...101 4.7.3 TrackBar 组件...104 4.7.4 UpDown组件...108
4.2.2 编辑组件对象
1. 选中窗体组件 有时要对多个组件进行同时编辑，就需要同时选中 多个组件。选定多个组件的方法有2种： (1) 按下Shift 键的同时，利用鼠标左键单击各 个组件。 (2) 在窗体上没有组件的地方按下鼠标左键并拖 动，将会出现一个虚框。松开鼠标左键后，该虚框 “触及”到的组件就被选中。
2. 复制窗体中的组件 方法1： （1）选择一个或多个要复制的组件。 （2）通过主菜单命令EditCopy复制到剪贴板中。 （3）然后通过菜单命令EditPaste将剪贴板中的组 件粘贴到窗体中。 方法2： （1）选择一个或多个要复制的组件。 （2）通过快捷键Ctrl+C将选中的组件复制到剪贴板中。 （3）通过快捷键Ctrl+V将剪贴板中的组件粘贴到窗体 中。
【例】动态标签
4.3.2 Static Text组件


静态文本控件（Static Text）与标签控件基 本相同，唯一不同之处在于静态文本控件是 窗口型控件，具有窗口句柄。因此，当控件 的快捷键必须属于窗口型控件的时候，应该 使用静态文本控件，而不能使用标签控件。 静态文本控件位于控件板的Additional选项 卡上，操作方法与标签相同。
属性名 Wordwrap
含 义 当Autosize属性为True时，文字超长时的显示方式。 True：文字在纵向方向扩展，以多行显示； False：文字在横向方向扩展，以完全容纳文本内容。 Transparent 组件是否透明，True—透明；False—不透明。 Height 组件的高度。 Width Autosize 组件的宽度。 是否根据其上显示的文本自动调整大小。 True—自动调整；False—不自动调整。
方法3：统一操作 先选中几个组件，通过主菜单EditSize...命令。 改变它们的大小
选中多个组件后，通过主菜单的EditAlign...命令。 对它们进行移动和对齐（水平和垂直）等操作
Alignment对话框中各选项的含义
选项名 No change Left sides Centers Right sides Tops Lines Bottoms Space equally 含 义 不变化控件的对齐方式 选中的各控件靠最左边的对齐 选中的各控件居中对齐 选中的各控件靠最右边的对齐 选中的各控件靠最上边的对齐 选中的各控件靠最下边的对齐 选中的各控件等间距排列