Delphi常用組件（信息技術(shù)）

Delphi常用組件Delphi程序設(shè)計(jì)常用組件前面介紹了Delphi系統(tǒng)中常用的一些組件，除此之外還有很多組件也是經(jīng)常使用的。下面介紹其中的Time、ProgressBar和TreeView組件。1.1

Time組件在Delphi程序設(shè)計(jì)中，如果要顯示時(shí)間就需要利用Time（計(jì)時(shí)器）組件。Timer組件位于組件面板的System面板中，如下圖所示。System面板中的Time組件Timer組件的屬性較少，通常需要了解的兩個(gè)屬性是Enabled和Interval。Enabled屬性值默認(rèn)為True，表示該組件在程序運(yùn)行時(shí)自動(dòng)開(kāi)始工作。但在很多情況下，用

戶希望能控制Timer組件工作的時(shí)間，這就需要在開(kāi)始時(shí)將Timer組件的Enabled屬性設(shè)置為False，然后通過(guò)代碼將Enabled屬性設(shè)置為True，使Timer組件開(kāi)始工作。Timer組件的功能是每隔一段時(shí)間間隔觸發(fā)一次OnTimer事件，可以為該事件編寫代碼實(shí)現(xiàn)相應(yīng)功能。Timer組件的Interval屬性用于設(shè)定

OnTimer事件觸發(fā)的時(shí)間間隔，單位為ms，取值范圍為0~65535.當(dāng)Inerval屬性設(shè)置為1000時(shí)，【例3-13】編寫程序，在Form窗體中顯示系統(tǒng)時(shí)間，并可以啟動(dòng)和暫停時(shí)間的顯示。操作步驟如下：（1）在Form窗體中添加一個(gè)Timer組件，將其

Enable屬性設(shè)置為False，Interval屬性設(shè)置為1000；再添加一個(gè)Label組件和兩個(gè)BitBtn組件，設(shè)計(jì)界面如下圖7所示。（2）為“啟動(dòng)”按鈕的onclick事件添加如下代碼，令Timer組件開(kāi)始工作。procedure

TForm1.BitBtn1Click（Sender:

TObject）;beginTimer1.Enabled

:=

true;end;（3）為“暫?！卑粹o的onclick事件添加如下代碼，使Timer組件暫停工作。procedure

TForm1.BitBtn2Click（Sender:

TObject）;beginTimer1.Enabled

:=

false;end;（4）為Timer組件的OnTimer事件添加如下代碼，實(shí)現(xiàn)在Label上顯示時(shí)間的功能。procedure

TForm1.Timer1Timer（Sender:

TObject）;beginLabel1.Caption

:=

TimeToStr（Time）;end;程序運(yùn)行效果如下圖所示。單擊“啟動(dòng)”按鈕，Label組件開(kāi)始顯示當(dāng)前時(shí)間，每秒鐘刷新一次；單擊“暫停”按鈕，則停止刷新時(shí)間。1.2

ProgressBar組件ProgressBar（進(jìn)度條）組件用于顯示程序的進(jìn)程，是一種重要的輔助性組件。ProgressBar組件

位于Win32面板中。ProgressBar組件的主要屬性如下：

Orientation：設(shè)置進(jìn)度條的方向是垂直還是水平。屬性值為pbHorizontal時(shí)，水平顯示；屬性值為pbVertical時(shí)，垂直顯示。

Max/Min：設(shè)置進(jìn)度條表示的最大值/最小值，默認(rèn)值為100/0。Step：設(shè)置進(jìn)度條每次前進(jìn)的量。

Smooth：布爾類型，為True時(shí)表示進(jìn)度條平滑顯示，為false時(shí)表示逐格向前顯示。ProgressBar組件通常與Timer組件配合使用，用于顯示任務(wù)完成的進(jìn)度和所用的時(shí)間。還可以通過(guò)StepBy和StepIt方法來(lái)指定進(jìn)度條的變化，這兩種方法的定義分別如下：StepBy（Delta:Integer）;

//進(jìn)度條增加百分比StepIt;

//按照Step屬性設(shè)置值，增加百分比【例3-14】創(chuàng)建一個(gè)水平進(jìn)度條和一個(gè)垂直進(jìn)度條，用Timer組件控制水平進(jìn)度條的進(jìn)度；用BitBtn組件控制垂直進(jìn)度條的進(jìn)度。操作步驟如下：（1）在Form窗體中添加一個(gè)Timer組件，兩個(gè)

ProgressBar組件和一個(gè)BitBtn組件。將界面左側(cè)的進(jìn)度條設(shè)為水平進(jìn)度條，設(shè)置Smooth屬性為

False，其余屬性取默認(rèn)值。將另一進(jìn)度條設(shè)為垂直進(jìn)度條，設(shè)置Steps屬性為10，其余屬性取默認(rèn)值，創(chuàng)建如下圖所示的界面。（2）為Timer組件的OnTimer事件添加如下代碼:

procedure

TForm1.Timer1Timer（Sender:TObject）;beginProgressBar1.Position

:=

ProgressBar1.Position

+

10;if

ProgressBar1.Position

>=

100then

ProgressBar1.Position

:=

100;end;（3）為BitBtn組件的OnCelick事件添加如下代碼：

procedure

TForm1.BitBtn1Click（Sender:TObject）;beginif

Progressbar2.Position

<=

100then

Progressbar2.StepIt;end;程序運(yùn)行效果如下圖所示。【例3-14】程序運(yùn)行效果1.3

TreeView組件使用TreeView（樹(shù)視圖）組件可以通過(guò)樹(shù)形結(jié)構(gòu)來(lái)顯示各種信息。1.TreeView組件的屬性樹(shù)形結(jié)構(gòu)的基本單元是節(jié)點(diǎn)，任何一個(gè)樹(shù)形結(jié)構(gòu)有且僅有一個(gè)根節(jié)點(diǎn)，作為其他節(jié)點(diǎn)的祖先。每個(gè)節(jié)點(diǎn)可以向下分出若干個(gè)節(jié)點(diǎn)，分出來(lái)的節(jié)點(diǎn)與原節(jié)點(diǎn)之間是父子關(guān)系，同一節(jié)點(diǎn)的子節(jié)點(diǎn)之間是兄弟關(guān)系，如果一個(gè)節(jié)點(diǎn)沒(méi)有子節(jié)點(diǎn)，那么該節(jié)點(diǎn)即稱為葉子節(jié)點(diǎn)。顯然，一個(gè)節(jié)點(diǎn)可以沒(méi)有孩子，也可以有一個(gè)或多個(gè)孩子；一個(gè)節(jié)點(diǎn)可以沒(méi)有兄弟，也可以有一個(gè)或多個(gè)兄弟；但是，任何一個(gè)節(jié)點(diǎn)只能有一個(gè)父節(jié)點(diǎn)。TreeView組件的主要屬性均與其節(jié)點(diǎn)相關(guān)，具體如下：

Items：其值為數(shù)組類型，用于保存TreeView組件中所有節(jié)點(diǎn)。

Images：設(shè)置TreeView組件中每個(gè)節(jié)點(diǎn)對(duì)應(yīng)的圖標(biāo)（也可以沒(méi)有圖標(biāo)）。對(duì)于TreeView組件的其他屬性，通常取默認(rèn)值即可。TreeView組件的事件TreeView組件的主要事件有以下3種：

Change：當(dāng)TreeView的當(dāng)前節(jié)點(diǎn)項(xiàng)發(fā)生變化，觸發(fā)該事件。Collapsed：節(jié)點(diǎn)收縮時(shí)觸發(fā)該事件。Expanded：節(jié)點(diǎn)展開(kāi)時(shí)觸發(fā)該事件。

3.TreeNodes節(jié)點(diǎn)節(jié)點(diǎn)是TreeView組件中最重要的元素，節(jié)點(diǎn)在Delphi系統(tǒng)中被定義成TreeNodes對(duì)象。所有節(jié)點(diǎn)都存放在TreeView的Items數(shù)組中，其中

Items[i]表示第i+1個(gè)節(jié)點(diǎn)。TreeNodes節(jié)點(diǎn)的屬性TreeNodes節(jié)點(diǎn)的主要屬性如下：Text：用于設(shè)置節(jié)點(diǎn)中顯示的文本信息。

HasChildredn：布爾類型，為True時(shí)表示該節(jié)點(diǎn)包含子節(jié)點(diǎn)。

Expanded：布爾類型，為True時(shí)表示該節(jié)點(diǎn)處于展開(kāi)狀態(tài)。Count：整型，設(shè)置節(jié)點(diǎn)的子節(jié)點(diǎn)數(shù)。

2）節(jié)點(diǎn)的方法為了更好地使用節(jié)點(diǎn)，Delphi系統(tǒng)提供了操作節(jié)點(diǎn)的方法，具體如下：EditText：設(shè)置節(jié)點(diǎn)的文本進(jìn)入編輯狀態(tài)。EndEdit：設(shè)置節(jié)點(diǎn)的文本退出編輯狀態(tài)。Delete：刪除整個(gè)節(jié)點(diǎn)（包其含子節(jié)點(diǎn)）。DeleteChildren：刪除當(dāng)前節(jié)點(diǎn)的所有子節(jié)點(diǎn)。AlphaSort：為節(jié)點(diǎn)排序。4.節(jié)點(diǎn)的操作TreeView組件的節(jié)點(diǎn)操作主要是添加和刪除節(jié)點(diǎn)。1）ImageList組件通常需要在TreeView組件中的節(jié)點(diǎn)文本前添加一個(gè)圖標(biāo)，下面介紹使用ImageList組件為節(jié)點(diǎn)添加圖標(biāo)的方法。添加ImageList組件。ImageList組件位于Delphi系統(tǒng)中的Win32面板中，如下圖所示。使用ImageList組件添加圖標(biāo)。雙擊ImageList組件，打開(kāi)ImageList對(duì)話框。（3）單擊對(duì)話框中Add按鈕，在打開(kāi)對(duì)話框中選擇一個(gè)圖標(biāo)文件后單擊OK按鈕，將其添加到ImageList對(duì)話框的Images列表框中。繼續(xù)單擊Add按鈕，可以添加多個(gè)圖標(biāo)，

ImageList組件自動(dòng)圖標(biāo)編號(hào)，如下圖所示。系統(tǒng)會(huì)按編號(hào)來(lái)調(diào)用相應(yīng)的圖標(biāo)。單擊Delete按鈕可以刪除列表框中選中的圖標(biāo)；單擊

Replace按鈕，可以再打開(kāi)的對(duì)話框中選擇一個(gè)圖標(biāo)來(lái)替換當(dāng)前選中的圖標(biāo)；單擊Clear按鈕可以清除列表框中的所有圖標(biāo)。添加好后單擊OK按鈕即可。ImageList對(duì)話框2）為TreeView組件添加節(jié)點(diǎn)可以通過(guò)設(shè)置TreeView組件的屬性來(lái)添加節(jié)點(diǎn)，其操作步驟如下：在Form窗體添加一個(gè)TreeView組件和一個(gè)ImageList組件。選中TreeView組件的Items屬性，單擊其屬性域右邊的

按鈕，打開(kāi)TreeView

Items

Editor對(duì)話框，如下圖所示。TreeView

Items

Editor對(duì)話框Items

Properties選項(xiàng)區(qū)中各選項(xiàng)的含義如下：Text：TreeNode節(jié)點(diǎn)上顯示的文本。

Image

Index：沒(méi)有選中TreeNode節(jié)點(diǎn)時(shí)，節(jié)的的圖標(biāo)在ImageList組件中的編號(hào)。

Selected

Index：當(dāng)選中TreeNode節(jié)點(diǎn)時(shí)，節(jié)點(diǎn)的圖標(biāo)在ImageList組件中的編號(hào)。State

Index：通常將其設(shè)置為-1。（3）設(shè)置好屬性后，單擊New

Item按鈕，可以為當(dāng)前節(jié)點(diǎn)添加一個(gè)兄弟節(jié)點(diǎn)；單擊NewSubItem按鈕，可以為當(dāng)前節(jié)點(diǎn)添加一個(gè)子節(jié)點(diǎn)。單擊Delete按鈕可以將刪除當(dāng)前選中節(jié)點(diǎn)。（4）設(shè)置好所有節(jié)點(diǎn)后，單擊OK按鈕，完成

TreeView組件中節(jié)點(diǎn)的添加。3）操作TreeView組件中節(jié)點(diǎn)可以通過(guò)系統(tǒng)提供的方法來(lái)操作TreeView組件中的節(jié)點(diǎn)。由于節(jié)點(diǎn)都保存在TreeView組件的

Items屬性中，所有可以通過(guò)下面的方法來(lái)操作

Items屬性中的節(jié)點(diǎn)。

Add：用于為當(dāng)前節(jié)點(diǎn)添加一個(gè)兄弟節(jié)點(diǎn)，其語(yǔ)法格式如下：TreeView.Items.Add（thisTreeNode,‘加入節(jié)點(diǎn)信息’）；

AddChild：用于為當(dāng)前節(jié)點(diǎn)加入一個(gè)子節(jié)點(diǎn)，其語(yǔ)法格式如下：TreeView.Items.AddChild（thisTreeNode,‘加入節(jié)點(diǎn)信息’）;

Selected：用于獲得當(dāng)前選中的節(jié)點(diǎn)，其語(yǔ)法格式如下：CurrentTreeNode

:=

TreeView.Selected;

Delete：可以使用該方法刪除當(dāng)前選中節(jié)點(diǎn)和所有子節(jié)點(diǎn)，其語(yǔ)法格式如下：CurrentTreeNode.Delete;

DeleteChildren：可以使用該方法刪除當(dāng)前選中節(jié)點(diǎn)的所有子節(jié)點(diǎn)，其語(yǔ)法格式如下：CurrentTreeNode.DeleteChildren;【例3-15】編寫程序來(lái)管理學(xué)生選課信息。一個(gè)學(xué)生可以選擇多門課程，學(xué)生與課程信息均使用

TreeView組件顯示。可以在TreeView組件中添加學(xué)生信息和課程信息，課程信息必須是學(xué)生信息的子節(jié)點(diǎn)?？梢詣h除課程節(jié)點(diǎn)和學(xué)生節(jié)點(diǎn)，刪除節(jié)點(diǎn)時(shí)，其所有子節(jié)點(diǎn)均被刪除。具體操作步驟如下：（1）在Form窗體添加一個(gè)TreeView組件，一個(gè)

ImageList組件和3個(gè)BitBtn組件，創(chuàng)建如下圖所示的界面?！纠?-15】程序界面（2）雙擊ImageList組件，在彈出的ImageList對(duì)話框中添加圖標(biāo)，如下圖所示。添加好圖標(biāo)后，單擊OK按鈕，完成ImageList組件的設(shè)置。添加節(jié)點(diǎn)圖標(biāo)選中TreeView組件，將其Image屬性設(shè)置為ImageList組件。為Form窗體的OnCreate事件添加如下代碼，為TreeView組件添加根節(jié)點(diǎn)。procedure

TForm1.FormCreate（Sender:

TObject）;beginTreeView1.Items.Add（TreeView1.Selected,"學(xué)生列表"）;end;（5）為“添加學(xué)生”按鈕的OnClick事件添加如下代碼，為根節(jié)點(diǎn)添加子節(jié)點(diǎn)。procedure

TForm1.BitBtn1Click（Sender:

TObject）;varrootNode,insNode:

TTreeNode;beginrootNode

:=

TreeView1.Items.Item[0];insNode:=TreeView1.Items.AddChild（rootNode,"姓名"）;rootNode.Expanded:=True;insNode.ImageIndex

:=

0;end;添加的節(jié)點(diǎn)默認(rèn)顯示的文本為“姓名”，將節(jié)點(diǎn)的文本修改為學(xué)生的姓名，修改后的文本自動(dòng)保存到TreeView組件中。（6）為“添加課程”按鈕的OnClick事件添加如下代碼，為學(xué)生節(jié)點(diǎn)添加課程子節(jié)點(diǎn)。procedure

TForm1.BitBtn2Click（Sender:

TObject）;var