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

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

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

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

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

Enable屬性設(shè)置為False，Interval屬性設(shè)置為1000；再添加一個Label組件和兩個BitBtn組件，設(shè)計(jì)界面如下圖7所示。（2）為“啟動”按鈕的onclick事件添加如下代碼，令Timer組件開始工作。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上顯示時間的功能。procedure

TForm1.Timer1Timer（Sender:

TObject）;beginLabel1.Caption

:=

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Expanded：布爾類型，為True時表示該節(jié)點(diǎn)處于展開狀態(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：刪除整個節(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)文本前添加一個圖標(biāo)，下面介紹使用ImageList組件為節(jié)點(diǎn)添加圖標(biāo)的方法。添加ImageList組件。ImageList組件位于Delphi系統(tǒng)中的Win32面板中，如下圖所示。使用ImageList組件添加圖標(biāo)。雙擊ImageList組件，打開ImageList對話框。（3）單擊對話框中Add按鈕，在打開對話框中選擇一個圖標(biāo)文件后單擊OK按鈕，將其添加到ImageList對話框的Images列表框中。繼續(xù)單擊Add按鈕，可以添加多個圖標(biāo)，

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

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

按鈕，打開TreeView

Items

Editor對話框，如下圖所示。TreeView

Items

Editor對話框Items

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

Image

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

Selected

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

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

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

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

Items屬性中，所有可以通過下面的方法來操作

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

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

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

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

:=

TreeView.Selected;

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

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

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

ImageList組件和3個BitBtn組件，創(chuàng)建如下圖所示的界面?！纠?-15】程序界面（2）雙擊ImageList組件，在彈出的ImageList對話框中添加圖標(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é)生的姓名，修改后的文本自動保存到TreeView組件中。（6）為“添加課程”按鈕的OnClick事件添加如下代碼，為學(xué)生節(jié)點(diǎn)添加課程子節(jié)點(diǎn)。procedure

TForm1.BitBtn2Click（Sender:

TObject）;var