Delphi7-常用组件的使用

第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方法：该方法用来向字符串列表的尾部添加一个字符串。其语法格式如下： functionAdd(constS:string):Integer;virtual;

Clear方法：该方法用来清空字符串列表。其语法格式如下： procedureClear;virtual;abstract;

Delete方法：该方法用来从字符串列表中删除一个指定的字符串。其语法格式如下： procedureDelete(Index:Integer);virtual;abstract;

Insert方法：该方法用来向字符串列表中插入一个字符串。其语法格式如下： procedureInsert(Index:Integer;constS:string);virtual;abstract;

Move方法：该方法用来在字符串列表中移动字符串的位置。其语法格式如下： procedureMove(CurIndex,NewIndex:Integer);virtual;LoadFromFile方法：该方法的作用是用指定的文件填充字符串列表。其语法格式如下： procedureLoadFromFile(constFileName:string);virtual;SaveToFile方法：该方法用来把字符串列表中的数据写到某文件中去。其语法格式如下： procedureSaveToFile(constFileName: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.4TTimer时钟组件的使用

（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.6TImage组件

1．TImage组件的常用属性

（1）Picture属性：通过该属性可以设置在Image组件中显示的图片。（2）Stretch属性：该属性用来决定图片是否自动拉伸或缩小到与TImage组件一样大小，以填满TImage组件。

2．TImage组件的常用方法

（1）LoadFromFile方法：该方法用来把图片文件装载到TImage组件中，语法格式如下：procedureLoadFromFile(constFileName:string);（2）SaveToFile方法：该方法用来把TImage组件中显示的图片保存到指定的文件中去，语法格式如下：procedureSaveToFile(constFileName: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的末尾再添加一个菜单项，语法格式如下：procedureAdd(Item:TMenuItem);overload;Delete方法：该方法用于在Items中删除指定的菜单项，语法格式如下：procedureDelete(Index:Integer);Insert方法：该方法用来在Items的指定位置插入一个菜单项，语法格式如下：procedureInsert(Index:Integer;Item:TMenuItem);

Remove方法：删除指定的菜单项，这与Delete方法不同，语法格式如下：procedureRemove(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.8TTabControl组件和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.9TScrollBar、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属性值增加一定的数量。其语法如下：procedureStepBy(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.10TPanel组件和TGroupBox组件