Delphi7-常用組件的使用

第7章常用組件的使用

本章要點(diǎn)：

掌握文本類組件的使用方法

掌握按鈕類組件的使用方法掌握列表類組件的使用方法掌握時(shí)鐘組件和通用對話框組件的使用方法掌握菜單、工具欄和狀態(tài)欄的設(shè)計(jì)方法7.1循序漸進(jìn)學(xué)理論

7.1.1文本類組件的使用

1．TLabel組件

（1）Caption屬性：即標(biāo)題屬性，這是TLabel組件最重要的屬性，用來設(shè)置該組件中顯示的文本。（2）AutoSize屬性：該屬性用來決定標(biāo)簽是否自動(dòng)隨文本的長短而改變大小。（3）WordWrap屬性：該屬性用來決定標(biāo)簽的文本是否可以折行顯示。（4）Alignment屬性：該屬性用來決定標(biāo)簽中顯示的文本的對齊方式。

（5）Enabled屬性：該屬性用來決定該組件是否能即響應(yīng)用戶的操作。

（6）Visible屬性：該屬性用來決定在程序運(yùn)行時(shí)組件是否可見。

（7）Font屬性：該屬性用來設(shè)置標(biāo)簽組件中顯示的文本字體，是一個(gè)對象屬性。2．TEdit組件

（1）TEdit組件的常用屬性

Text屬性：該屬性代表顯示在編輯框中的文本。

ReadOnly屬性：該屬性用來決定編輯框中顯示的文本是否可以修改。

PasswordChar屬性：該屬性用來決定用戶輸入的字符是原樣顯示還是以密碼方式顯示。

CharCase屬性：該屬性用來控制編輯框中文本的大小寫。

AutoSelect屬性：該屬性用來決定當(dāng)編輯框獲得焦點(diǎn)時(shí)，是否自動(dòng)選定顯示的文本。

BorderStyle屬性：該屬性用來決定編輯框組件是否有邊框。

CanUndo屬性：該屬性用來指出對編輯框中顯示的內(nèi)容改變是否能夠撤消。

HideSelection屬性：該屬性用來決定當(dāng)編輯框失去焦點(diǎn)時(shí)，選中的文本是否還是以選中的方式提供視覺提示。

MaxLength屬性：該屬性用來決定編輯框中最多能夠輸入或顯示的字符個(gè)數(shù)。

Modified屬性：該屬性是一個(gè)運(yùn)行屬性，用來指示編輯框中的內(nèi)容是否發(fā)生了改變。

SelStart屬性：該屬性也是一個(gè)運(yùn)行屬性，用來設(shè)置或指示選中文本的第一個(gè)字符的位置，文本框的第一個(gè)字符位置為0。

SelText屬性：該屬性也是一個(gè)運(yùn)行屬性，用來設(shè)置或指示選中的文本。

SelLength屬性：該屬性也是一個(gè)運(yùn)行屬性，用來設(shè)置或指示選中文本的長度。（2）TEdit組件的常用方法

SetFocus方法：該方法用于為編輯框設(shè)置焦點(diǎn)，無參數(shù)。

Clear方法：該方法用來清除編輯框中的所有文本，無參數(shù)。

ClearSelection方法：該方法用來清除編輯框中選中的文本，無參數(shù)。

Undo方法：該方法用來撤消在編輯框中最近所做的編輯操作。

ClearUndo方法：該方法用來清除“撤消”緩沖區(qū)，從而不能對以前的操作做撤消操作，該方法無參數(shù)。

SelectAll方法：該方法用來選中編輯框中的所有文本。

CopyToClipboard方法：該方法用來把選中的文本復(fù)制到剪貼板上，相當(dāng)于復(fù)制操作。

CutToClipboard方法：該方法用來把選中的文本移動(dòng)到剪貼板上，相當(dāng)于剪切操作。

PasteFromClipboard方法：該方法用來把剪切板上的文本粘貼到插入點(diǎn)處，相當(dāng)于粘貼操作。

（3）TEdit組件的常用事件

OnChange事件：當(dāng)Text屬性值發(fā)生改變時(shí)將觸發(fā)該事件。

OnKeyPress事件：當(dāng)用戶按下鍵盤上一個(gè)ASCII碼鍵時(shí)將觸發(fā)該事件。

OnKeyDown事件：用戶按下鍵盤上的任何鍵時(shí)都會(huì)觸發(fā)該事件。

OnKeyUp事件：當(dāng)用戶按下任何一個(gè)鍵后再松開時(shí)將觸發(fā)該事件。

【例7-1】設(shè)計(jì)一個(gè)簡易賬號和密碼的檢驗(yàn)程序。對輸入的賬號和密碼規(guī)定如下：（1）賬號為不超過6位的數(shù)字，密碼為4位字符，在本題中，賬號假設(shè)為123456，密碼假定為Pass。（2）輸入密碼時(shí)，在屏幕上不顯示輸入的字符，而用“*”代替。（3）當(dāng)輸入不正確，如賬號為非數(shù)字字符或賬號和密碼輸入不正確時(shí)，將顯示出消息框進(jìn)行提示。程序的設(shè)計(jì)界面如圖7-1所示，程序的運(yùn)行界面如圖7-2所示。圖7-1程序設(shè)計(jì)界面

圖7-2程序運(yùn)行界面

3．TMemo組件

（1）TMemo組件的常用屬性

ScrollBars屬性：該屬性用來設(shè)置備注框是否出現(xiàn)滾動(dòng)條以及滾動(dòng)條的種類。

Lines屬性：按行處理文本。

WordWrap屬性：該屬性用來決定當(dāng)輸入的文本到達(dá)右邊界時(shí)是否插入軟回車，以便換到下一行再輸入。（2）TMemo組件的常用方法

Add方法：該方法用來向字符串列表的尾部添加一個(gè)字符串。其語法格式如下： functionAdd(constS:string):Integer;virtual;

Clear方法：該方法用來清空字符串列表。其語法格式如下： procedureClear;virtual;abstract;

Delete方法：該方法用來從字符串列表中刪除一個(gè)指定的字符串。其語法格式如下： procedureDelete(Index:Integer);virtual;abstract;

Insert方法：該方法用來向字符串列表中插入一個(gè)字符串。其語法格式如下： procedureInsert(Index:Integer;constS:string);virtual;abstract;

Move方法：該方法用來在字符串列表中移動(dòng)字符串的位置。其語法格式如下： procedureMove(CurIndex,NewIndex:Integer);virtual;LoadFromFile方法：該方法的作用是用指定的文件填充字符串列表。其語法格式如下： procedureLoadFromFile(constFileName:string);virtual;SaveToFile方法：該方法用來把字符串列表中的數(shù)據(jù)寫到某文件中去。其語法格式如下： procedureSaveToFile(constFileName:string);virtual;【例7-2】編寫一個(gè)對文本文件進(jìn)行操作的應(yīng)用程序，程序的設(shè)計(jì)界面如圖7-3所示。程序運(yùn)行時(shí)在“輸入文件名”后面的文本框中輸入一個(gè)文本文件名，然后按【打開】按鈕將打開該文件。當(dāng)用戶修改了文件的內(nèi)容后，可以通過單擊【保存】按鈕把文件保存起來?！炯羟小俊ⅰ緩?fù)制】和【粘貼】按鈕的功能與剪貼板的相應(yīng)命令功能一致。【刪除】按鈕的功能是刪除選中的文本。程序的運(yùn)行界面如圖7-4所示。

圖7-3程序設(shè)計(jì)界面

圖7-4程序運(yùn)行界面

4．TMaskEdit組件

（1）EditMask屬性：該字符用于控制輸入數(shù)據(jù)的格式。

（2）EditText屬性：該屬性代表TMaskEdit組件中輸入的格式化文本。7.1.2按鈕類組件的使用

1．TButton組件

（1）TButton組件的主要屬性

Caption屬性：標(biāo)題屬性。

Cancel屬性：決定該按鈕是否為取消按鈕，默認(rèn)值為False。

Default屬性：決定該按鈕是否為默認(rèn)按鈕，缺省值為False。

（2）TButton組件的常用事件OnClick事件：單擊事件，是TButton組件的最常用事件。

OnMouseDown事件：鼠標(biāo)按下瞬間觸發(fā)該事件。

OnMouseMove事件：鼠標(biāo)在TButton組件上移動(dòng)時(shí)觸發(fā)該事件。

OnMouseUp事件：在TButton組件上松開按下的鼠標(biāo)時(shí)將觸發(fā)該事件。2．TBitBtn組件

（1）Glyph屬性：為按鈕指定一個(gè)位圖文件，顯示在按鈕的表面。（2）Kind屬性：決定位圖按鈕的種類。位圖按鈕使用最多的屬性就是Kind。

3．TRadioButton組件和TRadioGroup組件

（1）TRadioButton組件的主要屬性

Caption屬性：用來設(shè)置單選按鈕的提示文字。

Alignment屬性：用來決定單選按鈕的標(biāo)題文字出現(xiàn)的位置。

Checked屬性：該屬性用于標(biāo)記單選按鈕的狀態(tài)。（2）TRadioButton組件的常用事件

OnClick事件：在單選按鈕上單擊時(shí)將發(fā)生該單選按鈕的OnClick事件。

4．TCheckBox組件

（1）TCheckBox組件的主要屬性

Checked屬性：該屬性用來標(biāo)志復(fù)選框組件是否被選中。

AllowGrayed屬性：用來設(shè)定復(fù)選框是否能處于變灰狀態(tài)。

State屬性：該屬性用來確定該組件的狀態(tài)。（2）TCheckBox組件的常用事件

OnClick事件：單擊事件，在復(fù)選框上單擊時(shí)將發(fā)生該事件。

【例7-3】程序運(yùn)行時(shí)，在單選按鈕組“統(tǒng)計(jì)年齡”中將自動(dòng)生成3行2列共5個(gè)單選按鈕，如圖7-7所示。在統(tǒng)計(jì)年齡單選按鈕組中任意選中一個(gè)單選按鈕，備注框中立即顯示所選的項(xiàng)。單擊【關(guān)閉】按鈕或【Close】位圖按鈕，程序關(guān)閉。單擊【不可用】按鈕，統(tǒng)計(jì)年齡單選按鈕組不可用。程序設(shè)計(jì)界面如圖7-6所示，程序運(yùn)行界面如圖7-7所示。圖7-6程序設(shè)計(jì)界面圖7-7程序運(yùn)行界面7.1.3列表類組件的使用

1．TListBox組件

（1）TListBox組件的常用屬性

Items屬性：該屬性用來存放列表框中的列表項(xiàng)，屬于TStrings類。

Columns屬性：該屬性用來設(shè)置在列表框中顯示列表項(xiàng)的列數(shù)。

Count屬性：該屬性是一個(gè)運(yùn)行屬性，用來返回列表框中列表項(xiàng)的數(shù)目。MultiSelect屬性：該屬性用來設(shè)置能否在列表框中選擇多個(gè)列表項(xiàng)，即是否允許多選。

ExtendedSelect屬性：該屬性只有在MultiSelect屬性值為True時(shí)才起作用，用來決定列表框是否允許擴(kuò)展多選。ItemIndex屬性：該屬性用來設(shè)置或返回選中的列表項(xiàng)的序號，第一個(gè)列表項(xiàng)的序號值為0。Selected屬性：該屬性用來測試某個(gè)列表項(xiàng)是否被選中。SelCount屬性：在MultiSelect屬性值為True時(shí)，用來返回選中的列表項(xiàng)的個(gè)數(shù)。Sorted屬性：該屬性用來設(shè)置列表框中的列表項(xiàng)是否按字母順序排序。TopIndex屬性：該屬性用來設(shè)置或獲取顯示在列表框中的第一個(gè)列表項(xiàng)的序號。（2）TListBox組件的常用方法Clear方法：該方法的作用是清除列表框中的所有列表項(xiàng)，該方法無參數(shù)。ClearSelection方法：該方法的作用是清除列表框中所有被選中的選項(xiàng)。SelectAll方法：該方法用來選中列表框中的所有文本。MoveSelection方法：該方法用來把列表框中的所有選中的列表項(xiàng)移動(dòng)到另一個(gè)列表框中。CopySelection方法：該方法用來把列表框中的所有選中的列表項(xiàng)復(fù)制到另一個(gè)列表框中。（3）TListBox組件的常用事件TListBox組件響應(yīng)的主要事件有：OnClick、OnKeyDown、OnKeyPress、OnKeyUp等。

2．TComboBox組件

（1）DropDownCount屬性：該屬性用來設(shè)置組合框的列表框中所能顯示的列表項(xiàng)的最大數(shù)目，默認(rèn)情況下，列表框中可以顯示8個(gè)列表項(xiàng)，當(dāng)超過8個(gè)列表框時(shí)將顯示出垂直滾動(dòng)條。（2）Style屬性：該屬性用來設(shè)置或返回組合框的風(fēng)格?！纠?-4】編寫一個(gè)向列表框中添加選項(xiàng)的應(yīng)用程序，程序的設(shè)計(jì)界面如圖7-8所示，程序的運(yùn)行界面如圖7-9所示。程序運(yùn)行時(shí)，在“輸入”后面的編輯框里輸入任意文本并按Enter鍵后，如果該文本不在列表框就自動(dòng)添加到列表框中，如果該文本已在列表框中就不添加到列表框并且將編輯框里的文本以高亮度顯示，同時(shí)在列表框中選中相應(yīng)的列表項(xiàng)。圖7-8程序設(shè)計(jì)界面圖7-9程序運(yùn)行界面7.1.4TTimer時(shí)鐘組件的使用

（1）TTimer組件的屬性

Enabled屬性：該屬性用來設(shè)置程序運(yùn)行時(shí)定時(shí)器是否正在運(yùn)行。

Interval屬性：該屬性用來設(shè)置定時(shí)器兩次OnTimer事件發(fā)生的時(shí)間間隔，以毫秒為單位。（2）TTimer組件的事件

OnTimer事件：在Enabled屬性值為True時(shí)，該事件每隔一定時(shí)間間隔自動(dòng)觸發(fā)，觸發(fā)的時(shí)間間隔由Interval屬性指定?！纠?-5】利用TTimer組件，顯示系統(tǒng)的當(dāng)前時(shí)間，要求每隔0.5秒顯示一次。程序設(shè)計(jì)界面如圖7-10所示，程序運(yùn)行界面如圖7-11所示。圖7-10程序設(shè)計(jì)界面圖7-11程序運(yùn)行界面7.1.5對話框組件的使用

1．TOpenDialog組件

（1）TOpenDialog組件的常用屬性DefaultExt屬性：該屬性用來指定默認(rèn)的文件擴(kuò)展名。FileName屬性：該屬性用來返回用戶最近選中的文件的文件名，包括盤符和路徑。Files屬性：該屬性用來返回用戶選中的所有文件的文件名列表。Filter屬性：該屬性用來獲取或設(shè)置當(dāng)前文件名篩選器字符串。

FilterIndex屬性：該屬性用來獲取或設(shè)置打開對話框中當(dāng)前選定篩選器的索引。InitialDir屬性：該屬性用來獲取或設(shè)置文件對話框顯示的初始目錄。Title屬性：該屬性用來獲取或設(shè)置對話框標(biāo)題。（2）TOpenDialog組件的常用方法Execute方法：該方法用來顯示打開對話框。注意：在Dialogs組件頁中，還有一個(gè)TOpenPictureDialog組件，該組件的功能與使用方法基本與TOpenDialog一致，不同之處只是該對話框供用戶選擇圖片文件。

2．TSaveDialog組件3．TFontDialog組件

4．TColorDialog組件

【例7-6】簡單的文本編輯器。程序設(shè)計(jì)界面如圖7-12所示。界面上有4個(gè)加速（SpeedButton）按鈕，它們的功能依次是保存文件、打開文件、設(shè)置文本字體和設(shè)置文本顏色。界面上還有4個(gè)對話框組件OpenDialog、SaveDialog、FontDialog和ColorDialog組件與一個(gè)Memo組件。程序運(yùn)行時(shí)，單擊【保存】按鈕，可以保存文件；單擊【打開】按鈕，可以打開一個(gè)文件；單擊【字體】按鈕，可以設(shè)置文本字體；單擊【顏色】按鈕，可以設(shè)置Memo組件中顯示的文本顏色。程序運(yùn)行界面如圖7-13所示。圖7-12程序設(shè)計(jì)界面圖7-13程序運(yùn)行界面7.1.6TImage組件

1．TImage組件的常用屬性

（1）Picture屬性：通過該屬性可以設(shè)置在Image組件中顯示的圖片。（2）Stretch屬性：該屬性用來決定圖片是否自動(dòng)拉伸或縮小到與TImage組件一樣大小，以填滿TImage組件。

2．TImage組件的常用方法

（1）LoadFromFile方法：該方法用來把圖片文件裝載到TImage組件中，語法格式如下：procedureLoadFromFile(constFileName:string);（2）SaveToFile方法：該方法用來把TImage組件中顯示的圖片保存到指定的文件中去，語法格式如下：procedureSaveToFile(constFileName:string);7.1.7菜單組件

1．菜單的結(jié)構(gòu)

圖7-15菜單結(jié)構(gòu)一 圖7-16菜單結(jié)構(gòu)二2．菜單項(xiàng)的常用屬性Items屬性：菜單項(xiàng)數(shù)組屬性，用來存放菜單中的菜單項(xiàng)。Name屬性：該屬性代表的是菜單項(xiàng)名稱。Caption屬性：該屬性用來設(shè)置或返回菜單項(xiàng)中顯示的文字。Visible屬性：該屬性用來確定菜單項(xiàng)是否可見。Checked屬性：該屬性用來確定菜單項(xiàng)前是否顯示選中標(biāo)記。ShortCut屬性：該屬性用來確定菜單項(xiàng)的快捷鍵。Enabled屬性：該屬性用來確定菜單項(xiàng)是否可以使用Items屬性：如果該菜單項(xiàng)還有下一級子菜單，可通過該屬性來訪問子菜單中的菜單項(xiàng)，可看作是一個(gè)TMenuItem型的數(shù)組，下標(biāo)從0開始。Count屬性：如果該菜單項(xiàng)有下一級子菜單，可通過該屬性指示下一級子菜單的菜單項(xiàng)的數(shù)目。3．Items屬性的常用方法

Add方法：該方法用于在Items的末尾再添加一個(gè)菜單項(xiàng)，語法格式如下：procedureAdd(Item:TMenuItem);overload;Delete方法：該方法用于在Items中刪除指定的菜單項(xiàng)，語法格式如下：procedureDelete(Index:Integer);Insert方法：該方法用來在Items的指定位置插入一個(gè)菜單項(xiàng)，語法格式如下：procedureInsert(Index:Integer;Item:TMenuItem);

Remove方法：刪除指定的菜單項(xiàng)，這與Delete方法不同，語法格式如下：procedureRemove(Item:TMenuItem);

Clear屬性：該屬性用于刪除Items屬性中的所有菜單項(xiàng)。

【例7-7】編寫一個(gè)菜單演示程序，程序的設(shè)計(jì)界面如圖7-19所示。程序運(yùn)行時(shí)，執(zhí)行【File】→【Time】命令將顯示系統(tǒng)當(dāng)前時(shí)間；執(zhí)行【File】→【Exit】命令或在窗體空白處單擊鼠標(biāo)右鍵，在彈出的菜單上選擇【Exit】命令即可退出應(yīng)用程序。程序運(yùn)行界面如圖7-20和圖7-21所示。圖7-19程序設(shè)計(jì)界面圖7-20程序運(yùn)行界面圖7-21程序運(yùn)行界面【例7-8】動(dòng)態(tài)菜單設(shè)計(jì)例。程序的設(shè)計(jì)界面如圖7-22所示，程序運(yùn)行時(shí)，單擊【生成菜單】按鈕，將動(dòng)態(tài)生成一個(gè)File菜單，它包括4個(gè)菜單項(xiàng)：New、Open、Copy和Exit。程序運(yùn)行界面如圖7-23所示。圖7-22程序設(shè)計(jì)界面圖7-23程序運(yùn)行界面7.1.8TTabControl組件和TPageControl組件的使用

1．TPageControl組件的使用（1）TPageControl組件的常用屬性

Pages屬性：該屬性是一個(gè)數(shù)組屬性，它的每一個(gè)元素代表TPageControl組件中的一個(gè)頁面，是TTabSheet類型的。

PageCount屬性：該屬性用來返回TPageControl組件中頁面的數(shù)量。

ActivePage屬性：該屬性用來為TPageControl組件設(shè)置當(dāng)前頁或返回TPageControl組件的當(dāng)前頁，其類型是TTabSheet。

ActivePage屬性：該屬性用來為TPageControl組件設(shè)置當(dāng)前頁或返回TPageControl組件的當(dāng)前頁，其類型是TTabSheet。ActivePageIndex屬性：該屬性用來返回TPageControl組件的當(dāng)前頁的索引號，或通過該屬性把某索引號的頁設(shè)為當(dāng)前頁。MultiLine屬性：該屬性用來決定頁標(biāo)簽是否允許多行顯示。（2）TPageControl組件的常用事件

OnChange事件：該事件在選擇了一個(gè)頁標(biāo)簽后發(fā)生。OnPageChanging事件：該事件在某頁被選中前發(fā)生。OnChanging事件：在另一個(gè)頁標(biāo)簽被選中之前發(fā)生。【例7-9】編寫一個(gè)顯示文本文件和圖片文件的應(yīng)用程序，要求使用TPageControl組件，在TPageControl組件的兩頁中分別顯示文本文件和圖片文件的內(nèi)容。程序的設(shè)計(jì)界面如圖7-26和圖7-27所示。程序的運(yùn)行時(shí)，單擊“文本文件”頁標(biāo)簽，然后單擊【打開】按鈕將彈出【打開】對話框供用戶選擇一個(gè)文本文件，選中的文本文件將顯示在TMemo組件中，如圖7-28所示。單擊“圖片文件”頁標(biāo)簽，然后單擊【打開】按鈕將彈出【打開圖片】對話框供用戶選擇一個(gè)圖片文件，選中的圖片文件將顯示在TImage組件中，如圖7-29所示。圖7-26程序設(shè)計(jì)界面（一）圖7-26程序設(shè)計(jì)界面（一）圖7-28程序運(yùn)行界面（一）圖7-29程序運(yùn)行界面（二）2．TTabControl組件的使用（1）TTabControl組件的常用屬性Tabs屬性：該屬性是一個(gè)集合屬性，它的每個(gè)元素對應(yīng)一個(gè)TTabControl組件中的一個(gè)TTab對象。TabIndex屬性：該屬性用來設(shè)置或返回選中的TTab對象的索引，第一個(gè)TTab對象的索引為0。MultiLine屬性：同TPageControl組件的同名屬性。（2）TTabControl組件的常用事件

OnChanging事件：用戶單擊某個(gè)標(biāo)簽，在切換到該標(biāo)簽之前將觸發(fā)該事件。OnChange事件：從一個(gè)標(biāo)簽切換到另一個(gè)標(biāo)簽之后將觸發(fā)該事件。

【例7-10】編寫一個(gè)日期與時(shí)間切換程序。程序的設(shè)計(jì)界面如圖7-30所示，程序運(yùn)行時(shí)，單擊“日期”頁標(biāo)簽，將顯示出當(dāng)前日期，如圖7-31所示，單擊“時(shí)間”頁標(biāo)簽，將顯示出當(dāng)前時(shí)間，如圖7-32所示。

圖7-30程序設(shè)計(jì)界面圖7-31程序運(yùn)行界面（一）圖7-32程序運(yùn)行界面（二）7.1.9TScrollBar、TTrackBar和TProgressBar組件的使用

1．TScrollBar組件的使用

（1）TScrollBar組件的常用屬性Max屬性：該屬性用來設(shè)定滾動(dòng)條組件的最大值Min屬性：該屬性用來設(shè)定滾動(dòng)條組件的最小值。Position屬性：該屬性用來設(shè)置或獲取滾動(dòng)塊當(dāng)前所在位置的值。LargeChange屬性：該屬性用來設(shè)置單擊滾動(dòng)塊兩邊的位置時(shí)，Position屬性增加或減少的值。SmallChange屬性：該屬性用來設(shè)置單擊滾動(dòng)塊兩端的箭頭時(shí)，Position屬性增加或減少的值。（2）滾動(dòng)條組件的常用事件OnChange事件：當(dāng)滾動(dòng)條的Position屬性值發(fā)生變化時(shí)將觸發(fā)該事件。OnScroll事件：當(dāng)用戶用鼠標(biāo)或鍵盤滾動(dòng)了滾動(dòng)條時(shí)觸發(fā)該事件?！纠?-11】編寫一個(gè)利用滾動(dòng)條輸入數(shù)字的應(yīng)用程序。程序的設(shè)計(jì)界面如圖7-33所示。程序運(yùn)行時(shí)當(dāng)改變滾動(dòng)條滑塊位置時(shí)，將把滾動(dòng)條當(dāng)前位置的值顯示在編輯框中。當(dāng)在編輯框中輸入數(shù)字時(shí)，滾動(dòng)條的滑塊將移動(dòng)到相應(yīng)的位置。程序的運(yùn)行界面如圖7-34所示。圖7-33程序設(shè)計(jì)界面圖7-34程序運(yùn)行界面2．TProgressBar組件的使用（1）TProgressBar組件的常用屬性

Max屬性：該屬性用來定義TProgressBar組件的上限，當(dāng)進(jìn)度欄被填滿時(shí)Position屬性的值等于該屬性的值。

Min屬性：該屬性用來定義TProgressBar組件的下限，在進(jìn)度欄開始填充時(shí)，Position屬性的值等于該屬性的值。

Orientation屬性：該屬性用來定義TProgressBar組件是垂直排列的還是水平排列的。

Position屬性：該屬性代表TProgressBar組件的當(dāng)前位置值。Step屬性：該屬性用來設(shè)置當(dāng)調(diào)用TProgressBar組件的StepIt方法時(shí)，Position屬性的增加值。（2）TProgressBar組件的常用方法StepBy方法：該方法使TProgressBar組件的Position屬性值增加一定的數(shù)量。其語法如下：procedureStepBy(Delta:Integer);其中，參數(shù)Delta表示要增加的數(shù)值。StepIt方法：該方法使TProgressBar組件的Position屬性值增加一個(gè)固定的值，該值由Step屬性指定，該方法無參數(shù)。3．TTrackBar組件的使用

（1）TTrackBar組件的常用屬性

Max屬性：該屬性用來設(shè)置TTrackBar組件Postion屬性的最大值。Min屬性：該屬性用來設(shè)置TTrackBar組件Postion屬性的最小值。Position屬性：該屬性代表滑塊所在位置的值。SelStart屬性：該屬性用來設(shè)置滑塊拖動(dòng)范圍的起始點(diǎn)。SelEnd屬性：該屬性用來設(shè)置滑塊拖動(dòng)范圍的終止點(diǎn)。Frequency屬性：該屬性用來設(shè)置刻度標(biāo)記的頻率，此頻率與取值范圍有關(guān)。LineSize屬性：該屬性用來設(shè)置按箭頭鍵時(shí)，TTrackBar組件的Position屬性增加或減少的值。

PageSize屬性：該屬性用來設(shè)置按PageDown、PageUp鍵時(shí)或在TTrackBar組件上單擊時(shí)，TTrackBar組件的Position屬性增加或減少的值。

Orientation屬性：該屬性用來定義TTrackBar組件是水平排列的還是垂直排列的。（2）TTrackBar組件的常用事件TTrackBar組件的常用事件是OnChange，該事件在Position屬性值發(fā)生改變時(shí)觸發(fā)。7.1.10TPanel組件和TGroupBox組件