Delphi7-常用組件的使用

第7章常用組件的使用

本章要點(diǎn)：

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

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

7.1.1文本類組件的使用

1．TLabel組件

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

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

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

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

（1）TEdit組件的常用屬性

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

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

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

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

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

BorderStyle屬性：該屬性用來(lái)決定編輯框組件是否有邊框。

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

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

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

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

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

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

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

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

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

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

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

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

SelectAll方法：該方法用來(lái)選中編輯框中的所有文本。

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

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

PasteFromClipboard方法：該方法用來(lái)把剪切板上的文本粘貼到插入點(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è)簡(jiǎn)易賬號(hào)和密碼的檢驗(yàn)程序。對(duì)輸入的賬號(hào)和密碼規(guī)定如下：（1）賬號(hào)為不超過(guò)6位的數(shù)字，密碼為4位字符，在本題中，賬號(hào)假設(shè)為123456，密碼假定為Pass。（2）輸入密碼時(shí)，在屏幕上不顯示輸入的字符，而用“*”代替。（3）當(dāng)輸入不正確，如賬號(hào)為非數(shù)字字符或賬號(hào)和密碼輸入不正確時(shí)，將顯示出消息框進(jìn)行提示。程序的設(shè)計(jì)界面如圖7-1所示，程序的運(yùn)行界面如圖7-2所示。圖7-1程序設(shè)計(jì)界面

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

3．TMemo組件

（1）TMemo組件的常用屬性

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

Lines屬性：按行處理文本。

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

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

Clear方法：該方法用來(lái)清空字符串列表。其語(yǔ)法格式如下： procedureClear;virtual;abstract;

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

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

Move方法：該方法用來(lái)在字符串列表中移動(dòng)字符串的位置。其語(yǔ)法格式如下： procedureMove(CurIndex,NewIndex:Integer);virtual;LoadFromFile方法：該方法的作用是用指定的文件填充字符串列表。其語(yǔ)法格式如下： procedureLoadFromFile(constFileName:string);virtual;SaveToFile方法：該方法用來(lái)把字符串列表中的數(shù)據(jù)寫到某文件中去。其語(yǔ)法格式如下： procedureSaveToFile(constFileName:string);virtual;【例7-2】編寫一個(gè)對(duì)文本文件進(jìn)行操作的應(yīng)用程序，程序的設(shè)計(jì)界面如圖7-3所示。程序運(yùn)行時(shí)在“輸入文件名”后面的文本框中輸入一個(gè)文本文件名，然后按【打開】按鈕將打開該文件。當(dāng)用戶修改了文件的內(nèi)容后，可以通過(guò)單擊【保存】按鈕把文件保存起來(lá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事件：?jiǎn)螕羰录?，是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屬性：用來(lái)設(shè)置單選按鈕的提示文字。

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

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

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

4．TCheckBox組件

（1）TCheckBox組件的主要屬性

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

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

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

OnClick事件：?jiǎn)螕羰录?，在?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屬性：該屬性用來(lái)存放列表框中的列表項(xiàng)，屬于TStrings類。

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

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

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

2．TComboBox組件

（1）DropDownCount屬性：該屬性用來(lái)設(shè)置組合框的列表框中所能顯示的列表項(xiàng)的最大數(shù)目，默認(rèn)情況下，列表框中可以顯示8個(gè)列表項(xiàng)，當(dāng)超過(guò)8個(gè)列表框時(shí)將顯示出垂直滾動(dòng)條。（2）Style屬性：該屬性用來(lái)設(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屬性：該屬性用來(lái)設(shè)置程序運(yùn)行時(shí)定時(shí)器是否正在運(yùn)行。

Interval屬性：該屬性用來(lái)設(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對(duì)話框組件的使用

1．TOpenDialog組件

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

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

2．TSaveDialog組件3．TFontDialog組件

4．TColorDialog組件

【例7-6】簡(jiǎn)單的文本編輯器。程序設(shè)計(jì)界面如圖7-12所示。界面上有4個(gè)加速（SpeedButton）按鈕，它們的功能依次是保存文件、打開文件、設(shè)置文本字體和設(shè)置文本顏色。界面上還有4個(gè)對(duì)話框組件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屬性：通過(guò)該屬性可以設(shè)置在Image組件中顯示的圖片。（2）Stretch屬性：該屬性用來(lái)決定圖片是否自動(dòng)拉伸或縮小到與TImage組件一樣大小，以填滿TImage組件。

2．TImage組件的常用方法

（1）LoadFromFile方法：該方法用來(lái)把圖片文件裝載到TImage組件中，語(yǔ)法格式如下：procedureLoadFromFile(constFileName:string);（2）SaveToFile方法：該方法用來(lái)把TImage組件中顯示的圖片保存到指定的文件中去，語(yǔ)法格式如下：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ù)組屬性，用來(lái)存放菜單中的菜單項(xiàng)。Name屬性：該屬性代表的是菜單項(xiàng)名稱。Caption屬性：該屬性用來(lái)設(shè)置或返回菜單項(xiàng)中顯示的文字。Visible屬性：該屬性用來(lái)確定菜單項(xiàng)是否可見(jiàn)。Checked屬性：該屬性用來(lái)確定菜單項(xiàng)前是否顯示選中標(biāo)記。ShortCut屬性：該屬性用來(lái)確定菜單項(xiàng)的快捷鍵。Enabled屬性：該屬性用來(lái)確定菜單項(xiàng)是否可以使用Items屬性：如果該菜單項(xiàng)還有下一級(jí)子菜單，可通過(guò)該屬性來(lái)訪問(wèn)子菜單中的菜單項(xiàng)，可看作是一個(gè)TMenuItem型的數(shù)組，下標(biāo)從0開始。Count屬性：如果該菜單項(xiàng)有下一級(jí)子菜單，可通過(guò)該屬性指示下一級(jí)子菜單的菜單項(xiàng)的數(shù)目。3．Items屬性的常用方法

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

Remove方法：刪除指定的菜單項(xiàng)，這與Delete方法不同，語(yǔ)法格式如下：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è)頁(yè)面，是TTabSheet類型的。

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

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

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

OnChange事件：該事件在選擇了一個(gè)頁(yè)標(biāo)簽后發(fā)生。OnPageChanging事件：該事件在某頁(yè)被選中前發(fā)生。OnChanging事件：在另一個(gè)頁(yè)標(biāo)簽被選中之前發(fā)生?！纠?-9】編寫一個(gè)顯示文本文件和圖片文件的應(yīng)用程序，要求使用TPageControl組件，在TPageControl組件的兩頁(yè)中分別顯示文本文件和圖片文件的內(nèi)容。程序的設(shè)計(jì)界面如圖7-26和圖7-27所示。程序的運(yùn)行時(shí)，單擊“文本文件”頁(yè)標(biāo)簽，然后單擊【打開】按鈕將彈出【打開】對(duì)話框供用戶選擇一個(gè)文本文件，選中的文本文件將顯示在TMemo組件中，如圖7-28所示。單擊“圖片文件”頁(yè)標(biāo)簽，然后單擊【打開】按鈕將彈出【打開圖片】對(duì)話框供用戶選擇一個(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è)元素對(duì)應(yīng)一個(gè)TTabControl組件中的一個(gè)TTab對(duì)象。TabIndex屬性：該屬性用來(lái)設(shè)置或返回選中的TTab對(duì)象的索引，第一個(gè)TTab對(duì)象的索引為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í)，單擊“日期”頁(yè)標(biāo)簽，將顯示出當(dāng)前日期，如圖7-31所示，單擊“時(shí)間”頁(yè)標(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屬性：該屬性用來(lái)設(shè)定滾動(dòng)條組件的最大值Min屬性：該屬性用來(lái)設(shè)定滾動(dòng)條組件的最小值。Position屬性：該屬性用來(lái)設(shè)置或獲取滾動(dòng)塊當(dāng)前所在位置的值。LargeChange屬性：該屬性用來(lái)設(shè)置單擊滾動(dòng)塊兩邊的位置時(shí)，Position屬性增加或減少的值。SmallChange屬性：該屬性用來(lái)設(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屬性：該屬性用來(lái)定義TProgressBar組件的上限，當(dāng)進(jìn)度欄被填滿時(shí)Position屬性的值等于該屬性的值。

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

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

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

（1）TTrackBar組件的常用屬性

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

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

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