第 7章 常用组件的使用本章要点：
掌握文本类组件的使用方法
掌握按钮类组件的使用方法
掌握列表类组件的使用方法
掌握时钟组件和通用对话框组件的使用方法
掌握菜单,工具栏和状态栏的设计方法
7.1 循序渐进学理论
7.1.1 文本类组件的使用
1,TLabel组件
（ 1） Caption属性：即标题属性，这是 TLabel组件最重要的属性，用来设置该组件中显示的文本。
（ 2） AutoSize属性：该属性用来决定标签是否自动随文本的长短而改变大小。
（ 3） WordWrap属性：该属性用来决定标签的文本是否可以折行显示。
（ 4） Alignment属性：该属性用来决定标签中显示的文本的对齐方式 。
（ 5） Enabled属性：该属性用来决定该组件是否能即响应用户的操作。
（ 6） Visible属性：该属性用来决定在程序运行时组件是否可见 。
（ 7） Font属性：该属性用来设置标签组件中显示的文本字体，是一个对象属性 。
2,TEdit组件
（ 1） TEdit组件的常用属性
Text属性：该属性代表显示在编辑框中的文本。
ReadOnly属性：该属性用来决定编辑框中显示的文本是否可以修改。
PasswordChar属性：该属性用来决定用户输入的字符是原样显示还是以密码方式显示。
CharCase属性：该属性用来控制编辑框中文本的大小写 。
AutoSelect属性：该属性用来决定当编辑框获得焦点时，是否自动选定显示的文本。
BorderStyle属性：该属性用来决定编辑框组件是否有边框 。
CanUndo属性：该属性用来指出对编辑框中显示的内容改变是否能够撤消。
HideSelection属性：该属性用来决定当编辑框失去焦点时，选中的文本是否还是以选中的方式提供视觉提示。
MaxLength属性：该属性用来决定编辑框中最多能够输入或显示的字符个数。
Modified属性：该属性是一个运行属性，用来指示编辑框中的内容是否发生了改变 。
SelStart属性：该属性也是一个运行属性，用来设置或指示选中文本的第一个字符的位置，文本框的第一个字符位置为 0。
SelText属性：该属性也是一个运行属性，用来设置或指示选中的文本。
SelLength属性：该属性也是一个运行属性，用来设置或指示选中文本的长度。
（ 2） TEdit组件的常用方法
SetFocus方法：该方法用于为编辑框设置焦点，
无参数。
Clear方法：该方法用来清除编辑框中的所有文本，无参数。
ClearSelection方法：该方法用来清除编辑框中选中的文本，无参数。
Undo方法：该方法用来撤消在编辑框中最近所做的编辑操作。
ClearUndo方法：该方法用来清除,撤消,缓冲区，从而不能对以前的操作做撤消操作，该方法无参数。
SelectAll方法：该方法用来选中编辑框中的所有文本。
CopyToClipboard方法：该方法用来把选中的文本复制到剪贴板上，相当于复制操作。
CutToClipboard方法：该方法用来把选中的文本移动到剪贴板上，相当于剪切操作。
PasteFromClipboard方法：该方法用来把剪切板上的文本粘贴到插入点处，相当于粘贴操作。
（ 3） TEdit组件的常用事件
OnChange事件：当 Text属性值发生改变时将触发该事件。
OnKeyPress事件：当用户按下键盘上一个 ASCII
码键时将触发该事件。
OnKeyDown事件：用户按下键盘上的任何键时都会触发该事件。
OnKeyUp事件：当用户按下任何一个键后再松开时将触发该事件。
【 例 7-1】 设计一个简易账号和密码的检验程序 。 对输入的账号和密码规定如下,（ 1）
账号为不超过 6位的数字,密码为 4位字符,
在本题中,账号假设为 123456,密码假定为
Pass。 （ 2） 输入密码时,在屏幕上不显示输入的字符,而用,*” 代替 。 （ 3） 当输入不正确,如账号为非数字字符或账号和密码输入不正确时,将显示出消息框进行提示 。 程序的设计界面如图 7-1所示,程序的运行界面如图 7-2所示 。
图 7-1 程序设计界面图 7-2 程序运行界面
3,TMemo组件
（ 1） TMemo组件的常用属性
ScrollBars属性：该属性用来设置备注框是否出现滚动条以及滚动条的种类。
Lines属性：按行处理文本。
WordWrap属性：该属性用来决定当输入的文本到达右边界时是否插入软回车，以便换到下一行再输入。
（ 2） TMemo组件的常用方法
Add方法：该方法用来向字符串列表的尾部添加一个字符串。其语法格式如下：
function Add(const S,string),Integer;
virtual;
Clear方法：该方法用来清空字符串列表。其语法格式如下：
procedure Clear; virtual; abstract;
Delete方法：该方法用来从字符串列表中删除一个指定的字符串 。 其语法格式如下：
procedure Delete(Index,Integer); virtual;
abstract;
Insert方法：该方法用来向字符串列表中插入一个字符串 。 其语法格式如下：
procedure Insert(Index,Integer;
const S,string); virtual; abstract;
Move方法：该方法用来在字符串列表中移动字符串的位置。其语法格式如下：
procedure Move(CurIndex,NewIndex:
Integer); virtual;
LoadFromFile方法：该方法的作用是用指定的文件填充字符串列表 。 其语法格式如下：
procedure LoadFromFile(const FileName:
string); virtual;
SaveToFile方法：该方法用来把字符串列表中的数据写到某文件中去 。 其语法格式如下：
procedure SaveToFile(const FileName:
string); virtual;
【 例 7-2】 编写一个对文本文件进行操作的应用程序，程序的设计界面如图 7-3所示。
程序运行时在,输入文件名,后面的文本框中输入一个文本文件名，然后按 【 打开 】 按钮将打开该文件。当用户修改了文件的内容后，可以通过单击 【 保存 】 按钮把文件保存起来。 【 剪切 】,【 复制 】 和 【 粘贴 】 按钮的功能与剪贴板的相应命令功能一致。 【 删除 】 按钮的功能是删除选中的文本。程序的运行界面如图 7-4所示。
图 7-3 程序设计界面 图 7-4 程序运行界面
4,TMaskEdit组件
（ 1） EditMask属性：该字符用于控制输入数据的格式。
（ 2） EditText属性：该属性代表 TMaskEdit组件中输入的格式化文本。
7.1.2 按钮类组件的使用
1,TButton组件
（ 1） TButton组件的主要属性
Caption属性：标题属性。
Cancel属性：决定该按钮是否为取消按钮，默认值为 False。
Default属性：决定该按钮是否为默认按钮，
缺省值为 False。
（ 2） TButton组件的常用事件
OnClick事件：单击事件，是 TButton组件的最常用事件。
OnMouseDown事件：鼠标按下瞬间触发该事件。
OnMouseMove事件：鼠标在 TButton组件上移动时触发该事件。
OnMouseUp事件：在 TButton组件上松开按下的鼠标时将触发该事件。
2,TBitBtn组件
（ 1） Glyph属性：为按钮指定一个位图文件，显示在按钮的表面。
（ 2） Kind属性：决定位图按钮的种类。位图按钮使用最多的属性就是 Kind。
3,TRadioButton组件和 TRadioGroup组件
（ 1） TRadioButton组件的主要属性
Caption属性：用来设置单选按钮的提示文字。
Alignment属性：用来决定单选按钮的标题文字出现的位置。
Checked属性：该属性用于标记单选按钮的状态。
（ 2） TRadioButton组件的常用事件
OnClick事件：在单选按钮上单击时将发生该单选按钮的 OnClick事件。
4,TCheckBox组件
（ 1） TCheckBox组件的主要属性
Checked属性：该属性用来标志复选框组件是否被选中 。
AllowGrayed属性：用来设定复选框是否能处于变灰状态。
State属性：该属性用来确定该组件的状态。
（ 2） TCheckBox组件的常用事件
OnClick事件：单击事件，在复选框上单击时将发生该事件。
【 例 7-3】 程序运行时，在单选按钮组
“统计年龄”中将自动生成 3行 2列共 5个单选按钮，如图 7-7所示。在统计年龄单选按钮组中任意选中一个单选按钮，备注框中立即显示所选的项。单击 【 关闭 】 按钮或 【 Close】
位图按钮，程序关闭。单击 【 不可用 】 按钮，
统计年龄单选按钮组不可用。程序设计界面如图 7-6所示，程序运行界面如图 7-7所示。
图 7-6 程序设计界面 图 7-7 程序运行界面
7.1.3 列表类组件的使用
1,TListBox组件
（ 1） TListBox组件的常用属性
Items属性：该属性用来存放列表框中的列表项，
属于 TStrings类。
Columns属性：该属性用来设置在列表框中显示列表项的列数。
Count属性：该属性是一个运行属性，用来返回列表框中列表项的数目。
MultiSelect属性：该属性用来设置能否在列表框中选择多个列表项，即是否允许多选。
ExtendedSelect属性：该属性只有在 MultiSelect属性值为 True时才起作用，用来决定列表框是否允许扩展多选。
ItemIndex属性：该属性用来设置或返回选中的列表项的序号，第一个列表项的序号值为 0。
Selected属性：该属性用来测试某个列表项是否被选中 。
SelCount属性：在 MultiSelect属性值为 True时，用来返回选中的列表项的个数。
Sorted属性：该属性用来设置列表框中的列表项是否按字母顺序排序。
TopIndex属性：该属性用来设置或获取显示在列表框中的第一个列表项的序号。
（ 2） TListBox组件的常用方法
Clear方法：该方法的作用是清除列表框中的所有列表项，该方法无参数。
ClearSelection方法：该方法的作用是清除列表框中所有被选中的选项。
SelectAll方法：该方法用来选中列表框中的所有文本。
MoveSelection方法：该方法用来把列表框中的所有选中的列表项移动到另一个列表框中。
CopySelection方法：该方法用来把列表框中的所有选中的列表项复制到另一个列表框中。
（ 3） TListBox组件的常用事件
TListBox组件响应的主要事件有,OnClick、
OnKeyDown,OnKeyPress,OnKeyUp等。
2,TComboBox组件
（ 1） DropDownCount属性：该属性用来设置组合框的列表框中所能显示的列表项的最大数目，默认情况下，列表框中可以显示 8个列表项，当超过 8个列表框时将显示出垂直滚动条。
（ 2） Style属性：该属性用来设置或返回组合框的风格。
【 例 7-4】 编写一个向列表框中添加选项的应用程序，程序的设计界面如图 7-8所示，
程序的运行界面如图 7-9所示。程序运行时，
在“输入”后面的编辑框里输入任意文本并按 Enter键后，如果该文本不在列表框就自动添加到列表框中，如果该文本已在列表框中就不添加到列表框并且将编辑框里的文本以高亮度显示，同时在列表框中选中相应的列表项。
图 7-8 程序设计界面 图 7-9 程序运行界面
7.1.4 TTimer时钟组件的使用
（ 1） TTimer组件的属性
Enabled属性：该属性用来设置程序运行时定时器是否正在运行。
Interval属性：该属性用来设置定时器两次
OnTimer事件发生的时间间隔，以毫秒为单位。
（ 2） TTimer组件的事件
OnTimer事件：在 Enabled属性值为 True时，该事件每隔一定时间间隔自动触发，触发的时间间隔由
Interval属性指定。
【 例 7-5】 利用 TTimer组件，显示系统的当前时间，要求每隔 0.5秒显示一次。
程序设计界面如图 7-10所示，程序运行界面如图 7-11所示。
图 7-10 程序设计界面 图 7-11 程序运行界面
7.1.5 对话框组件的使用
1,TOpenDialog组件
（ 1） TOpenDialog组件的常用属性
DefaultExt属性：该属性用来指定默认的文件扩展名。
FileName属性：该属性用来返回用户最近选中的文件的文件名，包括盘符和路径。
Files属性：该属性用来返回用户选中的所有文件的文件名列表 。
Filter属性：该属性用来获取或设置当前文件名筛选器字符串。
FilterIndex属性：该属性用来获取或设置打开对话框中当前选定筛选器的索引。
InitialDir属性：该属性用来获取或设置文件对话框显示的初始目录。
Title属性：该属性用来获取或设置对话框标题。
（ 2） TOpenDialog组件的常用方法
Execute方法：该方法用来显示打开对话框。
注意,在 Dialogs组件页中，还有一个
TOpenPictureDialog组件，该组件的功能与使用方法基本与 TOpenDialog一致，不同之处只是该对话框供用户选择图片文件。
2,TSaveDialog组件
3,TFontDialog组件
4,TColorDialog组件
【 例 7-6】 简单的文本编辑器。程序设计界面如图 7-12所示。界面上有 4个加速（ SpeedButton）按钮，
它们的功能依次是保存文件、打开文件、设置文本字体和设置文本颜色。界面上还有 4个对话框组件
OpenDialog,SaveDialog,FontDialog和 ColorDialog组件与一个 Memo组件。程序运行时，单击 【 保存 】 按钮，可以保存文件；单击 【 打开 】 按钮，可以打开一个文件；单击 【 字体 】 按钮，可以设置文本字体；单击 【 颜色 】 按钮，可以设置 Memo组件中显示的文本颜色。程序运行界面如图 7-13所示。
图 7-12 程序设计界面 图 7-13 程序运行界面
7.1.6 TImage组件
1,TImage组件的常用属性
（ 1） Picture属性：通过该属性可以设置在 Image
组件中显示的图片。
（ 2） Stretch属性：该属性用来决定图片是否自动拉伸或缩小到与 TImage组件一样大小，以填满 TImage组件。
2,TImage组件的常用方法
（ 1） LoadFromFile方法：该方法用来把图片文件装载到 TImage组件中,语法格式如下：
procedure LoadFromFile(const FileName,string);
（ 2） SaveToFile方法：该方法用来把 TImage
组件中显示的图片保存到指定的文件中去,
语法格式如下：
procedure SaveToFile(const FileName,string);
7.1.7 菜单组件
1．菜单的结构图 7-15 菜单结构一图 7-16 菜单结构二
2．菜单项的常用属性
Items属性：菜单项数组属性，用来存放菜单中的菜单项。
Name属性：该属性代表的是菜单项名称。
Caption属性：该属性用来设置或返回菜单项中显示的文字 。
Visible属性：该属性用来确定菜单项是否可见 。
Checked属性：该属性用来确定菜单项前是否显示选中标记 。
ShortCut属性：该属性用来确定菜单项的快捷键。
Enabled属性：该属性用来确定菜单项是否可以使用
Items属性：如果该菜单项还有下一级子菜单，可通过该属性来访问子菜单中的菜单项，可看作是一个
TMenuItem型的数组，下标从 0开始。
Count属性：如果该菜单项有下一级子菜单，可通过该属性指示下一级子菜单的菜单项的数目。
3,Items属性的常用方法
Add方法：该方法用于在 Items的末尾再添加一个菜单项，语法格式如下：
procedure Add(Item,TMenuItem); overload;
Delete方法：该方法用于在 Items中删除指定的菜单项，
语法格式如下：
procedure Delete(Index,Integer);
Insert方法：该方法用来在 Items的指定位置插入一个菜单项,语法格式如下：
procedure Insert(Index,Integer; Item,
TMenuItem);
Remove方法：删除指定的菜单项，这与
Delete方法不同，语法格式如下：
procedure Remove(Item,TMenuItem);
Clear属性：该属性用于删除 Items属性中的所有菜单项。
【 例 7-7】 编写一个菜单演示程序，程序的设计界面如图 7-19所示。程序运行时，执行
【 File】 → 【 Time】 命令将显示系统当前时间；
执行 【 File】 → 【 Exit】 命令或在窗体空白处单击鼠标右键，在弹出的菜单上选择 【 Exit】
命令即可退出应用程序。程序运行界面如图 7-
20和图 7-21所示。
图 7-19 程序设计界面 图 7-20 程序运行界面图 7-21 程序运行界面
【 例 7-8】 动态菜单设计例。程序的设计界面如图 7-22所示，程序运行时，
单击 【 生成菜单 】 按钮，将动态生成一个 File菜单，它包括 4个菜单项,New、
Open,Copy和 Exit。程序运行界面如图
7-23所示。
图 7-22 程序设计界面 图 7-23 程序运行界面
7.1.8 TTabControl组件和 TPageControl组件的使用
1,TPageControl组件的使用
（ 1） TPageControl组件的常用属性
Pages属性：该属性是一个数组属性，它的每一个元素代表 TPageControl组件中的一个页面，是
TTabSheet类型的。
PageCount属性：该属性用来返回 TPageControl组件中页面的数量。
ActivePage属性：该属性用来为 TPageControl组件设置当前页或返回 TPageControl组件的当前页，其类型是 TTabSheet。
ActivePage属性：该属性用来为 TPageControl组件设置当前页或返回 TPageControl组件的当前页，其类型是 TTabSheet。
ActivePageIndex属性：该属性用来返回 TPageControl
组件的当前页的索引号，或通过该属性把某索引号的页设为当前页。
MultiLine属性：该属性用来决定页标签是否允许多行显示 。
（ 2） TPageControl组件的常用事件
OnChange事件：该事件在选择了一个页标签后发生。
OnPageChanging事件：该事件在某页被选中前发生。
OnChanging事件：在另一个页标签被选中之前发生。
【 例 7-9】 编写一个显示文本文件和图片文件的应用程序，要求使用 TPageControl组件，
在 TPageControl组件的两页中分别显示文本文件和图片文件的内容。程序的设计界面如图 7-
26和图 7-27所示。程序的运行时，单击“文本文件”页标签，然后单击 【 打开 】 按钮将弹出 【 打开 】 对话框供用户选择一个文本文件，
选中的文本文件将显示在 TMemo组件中，如图 7-28所示。单击“图片文件”页标签，然后单击 【 打开 】 按钮将弹出 【 打开图片 】 对话框供用户选择一个图片文件，选中的图片文件将显示在 TImage组件中，如图 7-29所示。
图 7-26 程序设计界面（一） 图 7-26 程序设计界面（一）
图 7-28 程序运行界面（一） 图 7-29 程序运行界面（二）
2,TTabControl组件的使用
（ 1） TTabControl组件的常用属性
Tabs属性：该属性是一个集合属性，它的每个元素对应一个 TTabControl组件中的一个 TTab对象。
TabIndex属性：该属性用来设置或返回选中的 TTab对象的索引，第一个 TTab对象的索引为 0。
MultiLine属性：同 TPageControl组件的同名属性。
（ 2） TTabControl组件的常用事件
OnChanging事件：用户单击某个标签，在切换到该标签之前将触发该事件。
OnChange事件：从一个标签切换到另一个标签之后将触发该事件。
【 例 7-10】 编写一个日期与时间切换程序。程序的设计界面如图 7-30所示，
程序运行时，单击“日期”页标签，将显示出当前日期，如图 7-31所示，单击
“时间”页标签，将显示出当前时间，
如图 7-32所示。
图 7-30 程序设计界面 图 7-31 程序运行界面（一）
图 7-32 程序运行界面（二）
7.1.9 TScrollBar,TTrackBar和 TProgressBar组件的使用
1,TScrollBar组件的使用
（ 1） TScrollBar组件 的常用属性
Max属性：该属性用来设定滚动条组件的最大值
Min属性：该属性用来设定滚动条组件的最小值。
Position属性：该属性用来设置或获取滚动块当前所在位置的值 。
LargeChange属性：该属性用来设置单击滚动块两边的位置时,Position属性增加或减少的值 。
SmallChange属性：该属性用来设置单击滚动块两端的箭头时,Position属性增加或减少的值 。
（ 2） 滚动条组件的常用事件
OnChange事件：当滚动条的 Position属性值发生变化时将触发该事件 。
OnScroll事件：当用户用鼠标或键盘滚动了滚动条时触发该事件 。
【 例 7-11】 编写一个利用滚动条输入数字的应用程序 。
程序的设计界面如图 7-33所示 。 程序运行时当改变滚动条滑块位置时,将把滚动条当前位置的值显示在编辑框中 。 当在编辑框中输入数字时,滚动条的滑块将移动到相应的位置 。 程序的运行界面如图 7-34所示 。
图 7-33 程序设计界面 图 7-34 程序运行界面
2,TProgressBar组件的使用
（ 1） TProgressBar组件的常用属性
Max属性：该属性用来定义 TProgressBar组件的上限，当进度栏被填满时 Position属性的值等于该属性的值。
Min属性：该属性用来定义 TProgressBar组件的下限，在进度栏开始填充时,Position属性的值等于该属性的值。
Orientation属性：该属性用来定义 TProgressBar组件是垂直排列的还是水平排列的。
Position属性：该属性代表 TProgressBar组件的当前位置值。
Step属性：该属性用来设置当调用 TProgressBar组件的 StepIt方法时,Position属性的增加值。
（ 2） TProgressBar组件的常用方法
StepBy方法：该方法使 TProgressBar组件的 Position
属性值增加一定的数量 。 其语法如下：
procedure StepBy(Delta,Integer);
其中,参数 Delta表示要增加的数值 。
StepIt方法：该方法使 TProgressBar组件的 Position
属性值增加一个固定的值，该值由 Step属性指定，该方法无参数。
3,TTrackBar组件的使用
（ 1） TTrackBar组件的常用属性
Max属性：该属性用来设置 TTrackBar组件 Postion
属性的最大值。
Min属性：该属性用来设置 TTrackBar组件 Postion
属性的最小值 。
Position属性：该属性代表滑块所在位置的值 。
SelStart属性：该属性用来设置滑块拖动范围的起始点 。
SelEnd属性：该属性用来设置滑块拖动范围的终止点 。
Frequency属性：该属性用来设置刻度标记的频率,
此频率与取值范围有关 。
LineSize属性：该属性用来设置按箭头键时，
TTrackBar组件的 Position属性增加或减少的值。
PageSize属性：该属性用来设置按 PageDown、
PageUp键时或在 TTrackBar组件上单击时,TTrackBar
组件的 Position属性增加或减少的值。
Orientation属性：该属性用来定义 TTrackBar组件是水平排列的还是垂直排列的。
（ 2） TTrackBar组件的常用事件
TTrackBar组件的常用事件是 OnChange，该事件在
Position属性值发生改变时触发。
7.1.10 TPanel组件和 TGroupBox组件
TPanel组件的常用属性如下。
（ 1） BevelInner属性：该属性用来设置面板内层边框斜面的类型。
（ 2） BevelOuter属性：该属性用来设置外层边框斜面的类型 。
（ 3） BevelWidth属性：该属性用来设置斜面的宽度 。
（ 4） BorderStyle属性：该属性用来设置边框类型 。
7.1.11 工具栏组件与状态栏组件图 7-35 【 Edit StatusBar1.Panels】 对话框
7.2 典型实例练能力
7.2.1 典型实例一：文本格式设置程序
【 实例题目 】
编写一个设置编辑框组件中显示的文本格式的应用程序，程序的设计界面如图 7-36所示。程序运行时，
如果选中了“编辑框 1”复选框，字体设置将是针对第一个编辑框进行的，如果选中了“编辑框 2”复选框，
字体设置将是针对第二个编辑框进行的，如果两个复选框均选中，字体设置将是针对两个编辑框进行的。
下部的三个单选钮组分别用来设置相应编辑框中显示文本的字体、大小和颜色，注意：只有在按下 【 确定 】
按钮后，字体格式设置才生效。图 7-37是某一时刻的运行界面。
图 7-36 程序设计界面 图 7-37 程序运行界面
7.2.2 典型实例二：课程选择程序
【 实例题目 】
编写一个课程选择程序，程序的设计界面如图 7-
38所示，左边的列表框显示可以选修的课程，右边的列表框中显示用户准备选修的课程。程序运行时，选中左边列表框中的一个或多个列表项，单击 【 >】 按钮，选中的列表项将被移动到右边列表框中，同时选中的项从左边列表框中消失；同样，选中右边列表框里的一个或多个列表项，单击 【 <】 按钮，选中的列表项将被移动到左边列表框中，同时选中的项从右边列表框中消失。单击 【 >>】 按钮将把左边列表框中的所有列表项全部移到右边的列表框中，同时左边的列表框清空；单击 【 <<】 按钮将把右边列表框中的所有列表项全部移到左边的列表框中，同时右边的列表框清空。程序某时刻的运行界面如图 7-39所示。
图 7-38 程序设计界面 图 7-39 程序运行界面
7.3 上机练习重应用
7.3.1 上机练习一：文本的自动移动与手动移动
【 练习题目 】
编写一个文本移动程序，程序的设计界面如图 7-
40所示。程序运行时，单击 【 自动移动 】 按钮，文本
“欢迎各位专家莅临指导！”从右到左自动移动，移出窗体左边界时又从右边移入，如此循环。单击 【 手动移动 】 按钮，文本停止移动，但在按下左光标键和
Alt键时又将从右向左移动，移出左边界时也从右边移入。程序运行界面如图 7-41所示。
图 7-40 程序设计界面 图 7-41 程序运行界面
7.3.2 上机练习二：计算机硬件配置程序
【 练习题目 】
设计一个计算机硬件配置程序,程序的设计界面如图 7-42所示 。 程序运行时选中相应的配件后按 【 确定 】 按钮,
将把配置情况显示在左侧的列表框中,
如图 7-43所示 。
图 7-42 程序设计界面图 7-43 程序运行界面
掌握文本类组件的使用方法
掌握按钮类组件的使用方法
掌握列表类组件的使用方法
掌握时钟组件和通用对话框组件的使用方法
掌握菜单,工具栏和状态栏的设计方法
7.1 循序渐进学理论
7.1.1 文本类组件的使用
1,TLabel组件
（ 1） Caption属性：即标题属性，这是 TLabel组件最重要的属性，用来设置该组件中显示的文本。
（ 2） AutoSize属性：该属性用来决定标签是否自动随文本的长短而改变大小。
（ 3） WordWrap属性：该属性用来决定标签的文本是否可以折行显示。
（ 4） Alignment属性：该属性用来决定标签中显示的文本的对齐方式 。
（ 5） Enabled属性：该属性用来决定该组件是否能即响应用户的操作。
（ 6） Visible属性：该属性用来决定在程序运行时组件是否可见 。
（ 7） Font属性：该属性用来设置标签组件中显示的文本字体，是一个对象属性 。
2,TEdit组件
（ 1） TEdit组件的常用属性
Text属性：该属性代表显示在编辑框中的文本。
ReadOnly属性：该属性用来决定编辑框中显示的文本是否可以修改。
PasswordChar属性：该属性用来决定用户输入的字符是原样显示还是以密码方式显示。
CharCase属性：该属性用来控制编辑框中文本的大小写 。
AutoSelect属性：该属性用来决定当编辑框获得焦点时，是否自动选定显示的文本。
BorderStyle属性：该属性用来决定编辑框组件是否有边框 。
CanUndo属性：该属性用来指出对编辑框中显示的内容改变是否能够撤消。
HideSelection属性：该属性用来决定当编辑框失去焦点时，选中的文本是否还是以选中的方式提供视觉提示。
MaxLength属性：该属性用来决定编辑框中最多能够输入或显示的字符个数。
Modified属性：该属性是一个运行属性，用来指示编辑框中的内容是否发生了改变 。
SelStart属性：该属性也是一个运行属性，用来设置或指示选中文本的第一个字符的位置，文本框的第一个字符位置为 0。
SelText属性：该属性也是一个运行属性，用来设置或指示选中的文本。
SelLength属性：该属性也是一个运行属性，用来设置或指示选中文本的长度。
（ 2） TEdit组件的常用方法
SetFocus方法：该方法用于为编辑框设置焦点，
无参数。
Clear方法：该方法用来清除编辑框中的所有文本，无参数。
ClearSelection方法：该方法用来清除编辑框中选中的文本，无参数。
Undo方法：该方法用来撤消在编辑框中最近所做的编辑操作。
ClearUndo方法：该方法用来清除,撤消,缓冲区，从而不能对以前的操作做撤消操作，该方法无参数。
SelectAll方法：该方法用来选中编辑框中的所有文本。
CopyToClipboard方法：该方法用来把选中的文本复制到剪贴板上，相当于复制操作。
CutToClipboard方法：该方法用来把选中的文本移动到剪贴板上，相当于剪切操作。
PasteFromClipboard方法：该方法用来把剪切板上的文本粘贴到插入点处，相当于粘贴操作。
（ 3） TEdit组件的常用事件
OnChange事件：当 Text属性值发生改变时将触发该事件。
OnKeyPress事件：当用户按下键盘上一个 ASCII
码键时将触发该事件。
OnKeyDown事件：用户按下键盘上的任何键时都会触发该事件。
OnKeyUp事件：当用户按下任何一个键后再松开时将触发该事件。
【 例 7-1】 设计一个简易账号和密码的检验程序 。 对输入的账号和密码规定如下,（ 1）
账号为不超过 6位的数字,密码为 4位字符,
在本题中,账号假设为 123456,密码假定为
Pass。 （ 2） 输入密码时,在屏幕上不显示输入的字符,而用,*” 代替 。 （ 3） 当输入不正确,如账号为非数字字符或账号和密码输入不正确时,将显示出消息框进行提示 。 程序的设计界面如图 7-1所示,程序的运行界面如图 7-2所示 。
图 7-1 程序设计界面图 7-2 程序运行界面
3,TMemo组件
（ 1） TMemo组件的常用属性
ScrollBars属性：该属性用来设置备注框是否出现滚动条以及滚动条的种类。
Lines属性：按行处理文本。
WordWrap属性：该属性用来决定当输入的文本到达右边界时是否插入软回车，以便换到下一行再输入。
（ 2） TMemo组件的常用方法
Add方法：该方法用来向字符串列表的尾部添加一个字符串。其语法格式如下：
function Add(const S,string),Integer;
virtual;
Clear方法：该方法用来清空字符串列表。其语法格式如下：
procedure Clear; virtual; abstract;
Delete方法：该方法用来从字符串列表中删除一个指定的字符串 。 其语法格式如下：
procedure Delete(Index,Integer); virtual;
abstract;
Insert方法：该方法用来向字符串列表中插入一个字符串 。 其语法格式如下：
procedure Insert(Index,Integer;
const S,string); virtual; abstract;
Move方法：该方法用来在字符串列表中移动字符串的位置。其语法格式如下：
procedure Move(CurIndex,NewIndex:
Integer); virtual;
LoadFromFile方法：该方法的作用是用指定的文件填充字符串列表 。 其语法格式如下：
procedure LoadFromFile(const FileName:
string); virtual;
SaveToFile方法：该方法用来把字符串列表中的数据写到某文件中去 。 其语法格式如下：
procedure SaveToFile(const FileName:
string); virtual;
【 例 7-2】 编写一个对文本文件进行操作的应用程序，程序的设计界面如图 7-3所示。
程序运行时在,输入文件名,后面的文本框中输入一个文本文件名，然后按 【 打开 】 按钮将打开该文件。当用户修改了文件的内容后，可以通过单击 【 保存 】 按钮把文件保存起来。 【 剪切 】,【 复制 】 和 【 粘贴 】 按钮的功能与剪贴板的相应命令功能一致。 【 删除 】 按钮的功能是删除选中的文本。程序的运行界面如图 7-4所示。
图 7-3 程序设计界面 图 7-4 程序运行界面
4,TMaskEdit组件
（ 1） EditMask属性：该字符用于控制输入数据的格式。
（ 2） EditText属性：该属性代表 TMaskEdit组件中输入的格式化文本。
7.1.2 按钮类组件的使用
1,TButton组件
（ 1） TButton组件的主要属性
Caption属性：标题属性。
Cancel属性：决定该按钮是否为取消按钮，默认值为 False。
Default属性：决定该按钮是否为默认按钮，
缺省值为 False。
（ 2） TButton组件的常用事件
OnClick事件：单击事件，是 TButton组件的最常用事件。
OnMouseDown事件：鼠标按下瞬间触发该事件。
OnMouseMove事件：鼠标在 TButton组件上移动时触发该事件。
OnMouseUp事件：在 TButton组件上松开按下的鼠标时将触发该事件。
2,TBitBtn组件
（ 1） Glyph属性：为按钮指定一个位图文件，显示在按钮的表面。
（ 2） Kind属性：决定位图按钮的种类。位图按钮使用最多的属性就是 Kind。
3,TRadioButton组件和 TRadioGroup组件
（ 1） TRadioButton组件的主要属性
Caption属性：用来设置单选按钮的提示文字。
Alignment属性：用来决定单选按钮的标题文字出现的位置。
Checked属性：该属性用于标记单选按钮的状态。
（ 2） TRadioButton组件的常用事件
OnClick事件：在单选按钮上单击时将发生该单选按钮的 OnClick事件。
4,TCheckBox组件
（ 1） TCheckBox组件的主要属性
Checked属性：该属性用来标志复选框组件是否被选中 。
AllowGrayed属性：用来设定复选框是否能处于变灰状态。
State属性：该属性用来确定该组件的状态。
（ 2） TCheckBox组件的常用事件
OnClick事件：单击事件，在复选框上单击时将发生该事件。
【 例 7-3】 程序运行时，在单选按钮组
“统计年龄”中将自动生成 3行 2列共 5个单选按钮，如图 7-7所示。在统计年龄单选按钮组中任意选中一个单选按钮，备注框中立即显示所选的项。单击 【 关闭 】 按钮或 【 Close】
位图按钮，程序关闭。单击 【 不可用 】 按钮，
统计年龄单选按钮组不可用。程序设计界面如图 7-6所示，程序运行界面如图 7-7所示。
图 7-6 程序设计界面 图 7-7 程序运行界面
7.1.3 列表类组件的使用
1,TListBox组件
（ 1） TListBox组件的常用属性
Items属性：该属性用来存放列表框中的列表项，
属于 TStrings类。
Columns属性：该属性用来设置在列表框中显示列表项的列数。
Count属性：该属性是一个运行属性，用来返回列表框中列表项的数目。
MultiSelect属性：该属性用来设置能否在列表框中选择多个列表项，即是否允许多选。
ExtendedSelect属性：该属性只有在 MultiSelect属性值为 True时才起作用，用来决定列表框是否允许扩展多选。
ItemIndex属性：该属性用来设置或返回选中的列表项的序号，第一个列表项的序号值为 0。
Selected属性：该属性用来测试某个列表项是否被选中 。
SelCount属性：在 MultiSelect属性值为 True时，用来返回选中的列表项的个数。
Sorted属性：该属性用来设置列表框中的列表项是否按字母顺序排序。
TopIndex属性：该属性用来设置或获取显示在列表框中的第一个列表项的序号。
（ 2） TListBox组件的常用方法
Clear方法：该方法的作用是清除列表框中的所有列表项，该方法无参数。
ClearSelection方法：该方法的作用是清除列表框中所有被选中的选项。
SelectAll方法：该方法用来选中列表框中的所有文本。
MoveSelection方法：该方法用来把列表框中的所有选中的列表项移动到另一个列表框中。
CopySelection方法：该方法用来把列表框中的所有选中的列表项复制到另一个列表框中。
（ 3） TListBox组件的常用事件
TListBox组件响应的主要事件有,OnClick、
OnKeyDown,OnKeyPress,OnKeyUp等。
2,TComboBox组件
（ 1） DropDownCount属性：该属性用来设置组合框的列表框中所能显示的列表项的最大数目，默认情况下，列表框中可以显示 8个列表项，当超过 8个列表框时将显示出垂直滚动条。
（ 2） Style属性：该属性用来设置或返回组合框的风格。
【 例 7-4】 编写一个向列表框中添加选项的应用程序，程序的设计界面如图 7-8所示，
程序的运行界面如图 7-9所示。程序运行时，
在“输入”后面的编辑框里输入任意文本并按 Enter键后，如果该文本不在列表框就自动添加到列表框中，如果该文本已在列表框中就不添加到列表框并且将编辑框里的文本以高亮度显示，同时在列表框中选中相应的列表项。
图 7-8 程序设计界面 图 7-9 程序运行界面
7.1.4 TTimer时钟组件的使用
（ 1） TTimer组件的属性
Enabled属性：该属性用来设置程序运行时定时器是否正在运行。
Interval属性：该属性用来设置定时器两次
OnTimer事件发生的时间间隔，以毫秒为单位。
（ 2） TTimer组件的事件
OnTimer事件：在 Enabled属性值为 True时，该事件每隔一定时间间隔自动触发，触发的时间间隔由
Interval属性指定。
【 例 7-5】 利用 TTimer组件，显示系统的当前时间，要求每隔 0.5秒显示一次。
程序设计界面如图 7-10所示，程序运行界面如图 7-11所示。
图 7-10 程序设计界面 图 7-11 程序运行界面
7.1.5 对话框组件的使用
1,TOpenDialog组件
（ 1） TOpenDialog组件的常用属性
DefaultExt属性：该属性用来指定默认的文件扩展名。
FileName属性：该属性用来返回用户最近选中的文件的文件名，包括盘符和路径。
Files属性：该属性用来返回用户选中的所有文件的文件名列表 。
Filter属性：该属性用来获取或设置当前文件名筛选器字符串。
FilterIndex属性：该属性用来获取或设置打开对话框中当前选定筛选器的索引。
InitialDir属性：该属性用来获取或设置文件对话框显示的初始目录。
Title属性：该属性用来获取或设置对话框标题。
（ 2） TOpenDialog组件的常用方法
Execute方法：该方法用来显示打开对话框。
注意,在 Dialogs组件页中，还有一个
TOpenPictureDialog组件，该组件的功能与使用方法基本与 TOpenDialog一致，不同之处只是该对话框供用户选择图片文件。
2,TSaveDialog组件
3,TFontDialog组件
4,TColorDialog组件
【 例 7-6】 简单的文本编辑器。程序设计界面如图 7-12所示。界面上有 4个加速（ SpeedButton）按钮，
它们的功能依次是保存文件、打开文件、设置文本字体和设置文本颜色。界面上还有 4个对话框组件
OpenDialog,SaveDialog,FontDialog和 ColorDialog组件与一个 Memo组件。程序运行时，单击 【 保存 】 按钮，可以保存文件；单击 【 打开 】 按钮，可以打开一个文件；单击 【 字体 】 按钮，可以设置文本字体；单击 【 颜色 】 按钮，可以设置 Memo组件中显示的文本颜色。程序运行界面如图 7-13所示。
图 7-12 程序设计界面 图 7-13 程序运行界面
7.1.6 TImage组件
1,TImage组件的常用属性
（ 1） Picture属性：通过该属性可以设置在 Image
组件中显示的图片。
（ 2） Stretch属性：该属性用来决定图片是否自动拉伸或缩小到与 TImage组件一样大小，以填满 TImage组件。
2,TImage组件的常用方法
（ 1） LoadFromFile方法：该方法用来把图片文件装载到 TImage组件中,语法格式如下：
procedure LoadFromFile(const FileName,string);
（ 2） SaveToFile方法：该方法用来把 TImage
组件中显示的图片保存到指定的文件中去,
语法格式如下：
procedure SaveToFile(const FileName,string);
7.1.7 菜单组件
1．菜单的结构图 7-15 菜单结构一图 7-16 菜单结构二
2．菜单项的常用属性
Items属性：菜单项数组属性，用来存放菜单中的菜单项。
Name属性：该属性代表的是菜单项名称。
Caption属性：该属性用来设置或返回菜单项中显示的文字 。
Visible属性：该属性用来确定菜单项是否可见 。
Checked属性：该属性用来确定菜单项前是否显示选中标记 。
ShortCut属性：该属性用来确定菜单项的快捷键。
Enabled属性：该属性用来确定菜单项是否可以使用
Items属性：如果该菜单项还有下一级子菜单，可通过该属性来访问子菜单中的菜单项，可看作是一个
TMenuItem型的数组，下标从 0开始。
Count属性：如果该菜单项有下一级子菜单，可通过该属性指示下一级子菜单的菜单项的数目。
3,Items属性的常用方法
Add方法：该方法用于在 Items的末尾再添加一个菜单项，语法格式如下：
procedure Add(Item,TMenuItem); overload;
Delete方法：该方法用于在 Items中删除指定的菜单项，
语法格式如下：
procedure Delete(Index,Integer);
Insert方法：该方法用来在 Items的指定位置插入一个菜单项,语法格式如下：
procedure Insert(Index,Integer; Item,
TMenuItem);
Remove方法：删除指定的菜单项，这与
Delete方法不同，语法格式如下：
procedure Remove(Item,TMenuItem);
Clear属性：该属性用于删除 Items属性中的所有菜单项。
【 例 7-7】 编写一个菜单演示程序，程序的设计界面如图 7-19所示。程序运行时，执行
【 File】 → 【 Time】 命令将显示系统当前时间；
执行 【 File】 → 【 Exit】 命令或在窗体空白处单击鼠标右键，在弹出的菜单上选择 【 Exit】
命令即可退出应用程序。程序运行界面如图 7-
20和图 7-21所示。
图 7-19 程序设计界面 图 7-20 程序运行界面图 7-21 程序运行界面
【 例 7-8】 动态菜单设计例。程序的设计界面如图 7-22所示，程序运行时，
单击 【 生成菜单 】 按钮，将动态生成一个 File菜单，它包括 4个菜单项,New、
Open,Copy和 Exit。程序运行界面如图
7-23所示。
图 7-22 程序设计界面 图 7-23 程序运行界面
7.1.8 TTabControl组件和 TPageControl组件的使用
1,TPageControl组件的使用
（ 1） TPageControl组件的常用属性
Pages属性：该属性是一个数组属性，它的每一个元素代表 TPageControl组件中的一个页面，是
TTabSheet类型的。
PageCount属性：该属性用来返回 TPageControl组件中页面的数量。
ActivePage属性：该属性用来为 TPageControl组件设置当前页或返回 TPageControl组件的当前页，其类型是 TTabSheet。
ActivePage属性：该属性用来为 TPageControl组件设置当前页或返回 TPageControl组件的当前页，其类型是 TTabSheet。
ActivePageIndex属性：该属性用来返回 TPageControl
组件的当前页的索引号，或通过该属性把某索引号的页设为当前页。
MultiLine属性：该属性用来决定页标签是否允许多行显示 。
（ 2） TPageControl组件的常用事件
OnChange事件：该事件在选择了一个页标签后发生。
OnPageChanging事件：该事件在某页被选中前发生。
OnChanging事件：在另一个页标签被选中之前发生。
【 例 7-9】 编写一个显示文本文件和图片文件的应用程序，要求使用 TPageControl组件，
在 TPageControl组件的两页中分别显示文本文件和图片文件的内容。程序的设计界面如图 7-
26和图 7-27所示。程序的运行时，单击“文本文件”页标签，然后单击 【 打开 】 按钮将弹出 【 打开 】 对话框供用户选择一个文本文件，
选中的文本文件将显示在 TMemo组件中，如图 7-28所示。单击“图片文件”页标签，然后单击 【 打开 】 按钮将弹出 【 打开图片 】 对话框供用户选择一个图片文件，选中的图片文件将显示在 TImage组件中，如图 7-29所示。
图 7-26 程序设计界面（一） 图 7-26 程序设计界面（一）
图 7-28 程序运行界面（一） 图 7-29 程序运行界面（二）
2,TTabControl组件的使用
（ 1） TTabControl组件的常用属性
Tabs属性：该属性是一个集合属性，它的每个元素对应一个 TTabControl组件中的一个 TTab对象。
TabIndex属性：该属性用来设置或返回选中的 TTab对象的索引，第一个 TTab对象的索引为 0。
MultiLine属性：同 TPageControl组件的同名属性。
（ 2） TTabControl组件的常用事件
OnChanging事件：用户单击某个标签，在切换到该标签之前将触发该事件。
OnChange事件：从一个标签切换到另一个标签之后将触发该事件。
【 例 7-10】 编写一个日期与时间切换程序。程序的设计界面如图 7-30所示，
程序运行时，单击“日期”页标签，将显示出当前日期，如图 7-31所示，单击
“时间”页标签，将显示出当前时间，
如图 7-32所示。
图 7-30 程序设计界面 图 7-31 程序运行界面（一）
图 7-32 程序运行界面（二）
7.1.9 TScrollBar,TTrackBar和 TProgressBar组件的使用
1,TScrollBar组件的使用
（ 1） TScrollBar组件 的常用属性
Max属性：该属性用来设定滚动条组件的最大值
Min属性：该属性用来设定滚动条组件的最小值。
Position属性：该属性用来设置或获取滚动块当前所在位置的值 。
LargeChange属性：该属性用来设置单击滚动块两边的位置时,Position属性增加或减少的值 。
SmallChange属性：该属性用来设置单击滚动块两端的箭头时,Position属性增加或减少的值 。
（ 2） 滚动条组件的常用事件
OnChange事件：当滚动条的 Position属性值发生变化时将触发该事件 。
OnScroll事件：当用户用鼠标或键盘滚动了滚动条时触发该事件 。
【 例 7-11】 编写一个利用滚动条输入数字的应用程序 。
程序的设计界面如图 7-33所示 。 程序运行时当改变滚动条滑块位置时,将把滚动条当前位置的值显示在编辑框中 。 当在编辑框中输入数字时,滚动条的滑块将移动到相应的位置 。 程序的运行界面如图 7-34所示 。
图 7-33 程序设计界面 图 7-34 程序运行界面
2,TProgressBar组件的使用
（ 1） TProgressBar组件的常用属性
Max属性：该属性用来定义 TProgressBar组件的上限，当进度栏被填满时 Position属性的值等于该属性的值。
Min属性：该属性用来定义 TProgressBar组件的下限，在进度栏开始填充时,Position属性的值等于该属性的值。
Orientation属性：该属性用来定义 TProgressBar组件是垂直排列的还是水平排列的。
Position属性：该属性代表 TProgressBar组件的当前位置值。
Step属性：该属性用来设置当调用 TProgressBar组件的 StepIt方法时,Position属性的增加值。
（ 2） TProgressBar组件的常用方法
StepBy方法：该方法使 TProgressBar组件的 Position
属性值增加一定的数量 。 其语法如下：
procedure StepBy(Delta,Integer);
其中,参数 Delta表示要增加的数值 。
StepIt方法：该方法使 TProgressBar组件的 Position
属性值增加一个固定的值，该值由 Step属性指定，该方法无参数。
3,TTrackBar组件的使用
（ 1） TTrackBar组件的常用属性
Max属性：该属性用来设置 TTrackBar组件 Postion
属性的最大值。
Min属性：该属性用来设置 TTrackBar组件 Postion
属性的最小值 。
Position属性：该属性代表滑块所在位置的值 。
SelStart属性：该属性用来设置滑块拖动范围的起始点 。
SelEnd属性：该属性用来设置滑块拖动范围的终止点 。
Frequency属性：该属性用来设置刻度标记的频率,
此频率与取值范围有关 。
LineSize属性：该属性用来设置按箭头键时，
TTrackBar组件的 Position属性增加或减少的值。
PageSize属性：该属性用来设置按 PageDown、
PageUp键时或在 TTrackBar组件上单击时,TTrackBar
组件的 Position属性增加或减少的值。
Orientation属性：该属性用来定义 TTrackBar组件是水平排列的还是垂直排列的。
（ 2） TTrackBar组件的常用事件
TTrackBar组件的常用事件是 OnChange，该事件在
Position属性值发生改变时触发。
7.1.10 TPanel组件和 TGroupBox组件
TPanel组件的常用属性如下。
（ 1） BevelInner属性：该属性用来设置面板内层边框斜面的类型。
（ 2） BevelOuter属性：该属性用来设置外层边框斜面的类型 。
（ 3） BevelWidth属性：该属性用来设置斜面的宽度 。
（ 4） BorderStyle属性：该属性用来设置边框类型 。
7.1.11 工具栏组件与状态栏组件图 7-35 【 Edit StatusBar1.Panels】 对话框
7.2 典型实例练能力
7.2.1 典型实例一：文本格式设置程序
【 实例题目 】
编写一个设置编辑框组件中显示的文本格式的应用程序，程序的设计界面如图 7-36所示。程序运行时，
如果选中了“编辑框 1”复选框，字体设置将是针对第一个编辑框进行的，如果选中了“编辑框 2”复选框，
字体设置将是针对第二个编辑框进行的，如果两个复选框均选中，字体设置将是针对两个编辑框进行的。
下部的三个单选钮组分别用来设置相应编辑框中显示文本的字体、大小和颜色，注意：只有在按下 【 确定 】
按钮后，字体格式设置才生效。图 7-37是某一时刻的运行界面。
图 7-36 程序设计界面 图 7-37 程序运行界面
7.2.2 典型实例二：课程选择程序
【 实例题目 】
编写一个课程选择程序，程序的设计界面如图 7-
38所示，左边的列表框显示可以选修的课程，右边的列表框中显示用户准备选修的课程。程序运行时，选中左边列表框中的一个或多个列表项，单击 【 >】 按钮，选中的列表项将被移动到右边列表框中，同时选中的项从左边列表框中消失；同样，选中右边列表框里的一个或多个列表项，单击 【 <】 按钮，选中的列表项将被移动到左边列表框中，同时选中的项从右边列表框中消失。单击 【 >>】 按钮将把左边列表框中的所有列表项全部移到右边的列表框中，同时左边的列表框清空；单击 【 <<】 按钮将把右边列表框中的所有列表项全部移到左边的列表框中，同时右边的列表框清空。程序某时刻的运行界面如图 7-39所示。
图 7-38 程序设计界面 图 7-39 程序运行界面
7.3 上机练习重应用
7.3.1 上机练习一：文本的自动移动与手动移动
【 练习题目 】
编写一个文本移动程序，程序的设计界面如图 7-
40所示。程序运行时，单击 【 自动移动 】 按钮，文本
“欢迎各位专家莅临指导！”从右到左自动移动，移出窗体左边界时又从右边移入，如此循环。单击 【 手动移动 】 按钮，文本停止移动，但在按下左光标键和
Alt键时又将从右向左移动，移出左边界时也从右边移入。程序运行界面如图 7-41所示。
图 7-40 程序设计界面 图 7-41 程序运行界面
7.3.2 上机练习二：计算机硬件配置程序
【 练习题目 】
设计一个计算机硬件配置程序,程序的设计界面如图 7-42所示 。 程序运行时选中相应的配件后按 【 确定 】 按钮,
将把配置情况显示在左侧的列表框中,
如图 7-43所示 。
图 7-42 程序设计界面图 7-43 程序运行界面
