delphi控件和組件學習

組件和控件

非可視化組件（Nonvisual

Component）：非可視化組件是指在程序運行期間用戶是不可以看到的，是從TComponent但不是從TControl派生出來的子類。

組件的屬性是組件特性的描述，包括組件的外觀特性（如位置、尺寸、外形、字體、可視性）和非可視化的特性。

組件的事件是對組件所做的某個動作或系統(tǒng)的某些行為（如按下鼠標、雙擊鼠標、窗體裝入等）的反應。每個組件都提供滿足用戶的各類事件處理器，當發(fā)生特殊事件時，應用程序將執(zhí)行事件處理器中的代碼。

組件的方法是指該類或對象類型實例的函數或過程，每一類組件都有自己的方法，以實現各種功能。第1頁/共47頁表3-1組件的常見基本屬性屬性

HeightWidthLeftTopAlignVisibleCaptionColorFontCtl3DShowHintHintEnabledNameTabOrder含義高度寬度組件在容器內的x坐標組件在容器內的y坐標組件上的對齊方式，居上、居下、居左、居右、占據剩余”設置組件是否顯示，默認值為“true顯示類組件的標題名稱顯示組件的背景顏色設置組件顯示文本的字體是否以3D方式顯示組件，默認值為“true”是否顯示組件的提示信息，默認值為“true”組件的提示信息用戶是否能夠操作機器內部對組件進行標識的名稱Tab次序第2頁/共47頁表3-2組件的常用事件及觸發(fā)條件事件名onclickondblclickonmousedownonmousemoveonkeydownonkeypressonkeyupOnEnteronexitonstartDragondragdrop觸發(fā)條件當鼠標單擊時觸發(fā)本事件當鼠標雙擊時觸發(fā)本事件當鼠標左鍵按下時觸發(fā)本事件當鼠標移動時觸發(fā)本事件當按下任意鍵（包括組合鍵）時觸發(fā)本事件當按下任意鍵（單字符鍵）時觸發(fā)本事件當松開已按下鍵時觸發(fā)本事件當獲得焦點時觸發(fā)本事件當失去焦點時觸發(fā)本事件當開始拖動時觸發(fā)本事件當組件拖動操作結束時觸發(fā)本事件第3頁/共47頁二、文本控件第4頁/共47頁主要有五種：LabelEditStatic

TextMask

EditMemo1、TLabel組件

TLabel標簽組件位于組件面板的Standard選項卡上（如圖），可以顯示一個只讀的字符串。

通常利用TLabel標簽組件在窗體上顯示靜態(tài)文本，如顯示提示信息；也可顯示動態(tài)文本，如用TLabel顯示不斷變化的當前時間。第5頁/共47頁TLabel組件的主要屬性和方法第6頁/共47頁TLabel組件常用的屬性見表3

-

1

。A

1

ign屬性：該屬性決定TLabel組件的顯示位置（使其位于窗口的某個部分）。Alignment屬性：該屬性設置文字在水平方向的對齊方式。Auto

Size屬性：該屬性決定標簽的大小是否和文字保持一致。Layout屬性：該屬性設置文字在垂直方向的對齊方式。Trans

Parent屬性：該屬性決定標簽是否透明顯示，主要在圖形操作時使用，如果將其設置為true，則可透過標簽看到背景圖。Word

Wrap屬性：該屬性決定當Autosize屬性為true時，文字超長時的顯示方式。該屬性為true時，則文字在縱向方向擴展，以多行顯示；為false時，則文字在橫向方向擴展，以完全容納文本內容。2、TEdit組件第7頁/共47頁TEdit文本框組件位于組件面板的Standard選項卡上，可以顯示、編輯單獨的一行文本。用途：TEdit組件提供了一個編輯區(qū)域，用戶可在區(qū)域中輸入單行信息。TEdit不但允許用戶在文本框中輸入數據，也可以用來顯示查詢的數據及提示信息。TEdit組件的主要屬性和方法第8頁/共47頁AutoSelect屬性：該屬性用來設置當TEdit組件獲得輸入焦點時，自動選中所有的文本。若它的值為true，則當

Edit組件獲得輸入焦點時，自動選中所有的文本；若它的值為false，則當Edit組件獲得輸入焦點時，不自動選中所有的文本。AutoSize屬性：用于控制是否隨字體的高度來改變編輯框的高度。當AutoSize設置為true時，編輯框的高度會自動適應輸入文字的字體高度。但要注意，該屬性只有當

BorderStyle屬性設置為bsSingle時才有效。CharCase屬性：該屬性用于強制組件中的文本全部為大寫（或小寫）字母。Enabled屬性：該屬性決定文本框中的內容是否可以修改，其默認值為true，即文本框中的文本可以修改；當它的值為false時其中的文本不能修改。TEdit組件的主要屬性和方法Hint屬性：該屬性用來設置所顯示的提示信息。例如通過將該屬性設置為“請輸入職工姓名”，并將ShowHint屬性設置為true，則在應用程序運行時當用戶將鼠標移到文本框并停頓片刻后，將顯示引號中的提示信息。IME屬性：IME是輸入法編輯器（Input

MethodEditor）的英文縮寫，通過設置該屬性可以在輸入焦點定位在Edit組件上時，自動實現輸入法的切換。設置ImeMode屬性：如果要設置為中文輸入法，可以將ImeMode屬性設置為imChinese.設置ImeName屬性：可以通過下拉組合框選擇一個具體的輸入法。PasswordChar屬性：將用戶輸入的所有字符以同一個字符顯示，其默認值是“#0”，表示編輯框直接顯示用戶輸入的字符；如果將其設置為“*”，則不論用戶輸入什么，編輯框中都只顯示“*”號，一般在鍵入密碼時可以這樣設置。第9頁/共47頁TEdit組件的主要屬性和方法Clear方法：該方法刪除文本框中的所有文本。ClearSelection方法：該方法刪除文本框中被選擇的文本。如果文本框中沒有被選擇的文本，則不刪除任何內容。CopyToClipboard方法：該方法將文本框中已選擇的

文本拷貝到剪貼板上，并取代原來剪貼板中的所有內容。如果用戶未在文本框中選擇任何文本，該方法的執(zhí)行將不刪除原來剪貼板的所有內容。CutToClipboard方法：該方法將文本框中已選擇的文本拷貝到剪貼板上，并取代原來剪貼板中的所有內容，然后刪除在文本框中被選中的內容。PasteFromClipboard方法：該方法將剪貼板上的內容拷貝到文本框中，并插入到文本框中光標所在的當前位置。SelectAll方法：該方法選擇文本框中的所有文本。第10頁/共47頁TEdit組件的主要屬性和方法第11頁/共47頁Edit組件最常用的事件（也是默認事件）為onchange，一旦Edit組件中的文本內容發(fā)生了改變，就會觸發(fā)onchange事件?！纠?-1】

設計用戶登錄驗證的窗體，用來接收用戶輸入的用戶

名和口令，單擊“確定”

按鈕進行驗證，根據輸入

是否正確顯示相應的提示

信息。第12頁/共47頁3、TMemo組件第13頁/共47頁

TMemo備注框組件位于組件面板的Standard選項卡上，可以顯示、編輯多行文本。1．用途

TMemo組件為用戶提供了一種處理多行文本的方法，還可用來快速閱讀文件中的數據。盡管TLabel、TEdit和TMemo組件有許多相似之處，但它們的使用場合卻有所不同。

如果只顯示用戶不能修改的信息，可采用標簽；如果用戶只處理單行信息，則使用TEdit組件；如果用戶要處理多行文本，那么只能采用TMemo組件。TMemo組件的主要屬性第14頁/共47頁TMemo組件的很多屬性（如MaxLength、ReadOnly和Text等）和TEdit組件的屬性類似，以下是TMemo組件的特殊屬性。Lines屬性：返回TMemo組件中文本的行數。ScrollBars屬性：該屬性用來設置TMemo組件是否有滾動條。WantTabs屬性：該屬性用來設置是否可以使用Tab鍵來進行文本編輯。其值設置為true，這時可以用Tab鍵來使TMemo組件獲得輸入焦點，但不能用Tab鍵從TMemo組件切換到其他組件，默認值為false。方法M

1.lines.delete(0);//刪除第一行M

1.lines.insert(1,’line

inserted’);//第二行后加一行;M

1.lines[1]:=‘

’;//更改第二行內容;Edit

1

.

text:

=M

1

.

lines[

1

];M

1.lines.clear;//清除M

1中所有文本第15頁/共47頁4、MaskEdit控件（格式化文本框控第16頁/共47頁在Additio

n件a

l頁）上，其作用類似于Edit。不過Mask

Edit控件可以對用戶輸入的文本進行格式限定，用戶只能按指定的格式輸入。如：按照指定格式輸入日期、時間、電話號碼等格式的文本。常用屬性：Edit

Mask:可設置輸入格式；Edit

Text:可設置默認值。三、按鈕類控件第17頁/共47頁普通按鈕（

TButton）位圖按鈕（

TBit

Btn）快捷按鈕（

TSpeed

Button）1、TButton組件第18頁/共47頁TButton命令按鈕組件位于組件面板的Standard選項卡上用途：TButton組件是為用戶提供用來選擇執(zhí)行命令的組件，通常稱為命令按鈕。按鈕在Windows程序中應用非常廣泛，它可以放在應用程序的任何地方，觸發(fā)之后執(zhí)行特定的操作主要屬性Cancel屬性：該屬性決定按鈕是否為Cancel按鈕。當設置為true時，為Cancel按鈕，即當用戶按Esc鍵時，將執(zhí)行按鈕的onclick事件處理程序。當窗體中有多個

Cancel按鈕時，則只調用Tab

Order屬性最小按鈕的

onclick事件。Caption屬性：該屬性用來讓用戶識別組件，輸入屬性值顯示在組件表面。Default屬性：該屬性決定按鈕是否為默認按鈕。如果將其設置為true，則按鈕為默認按鈕，此時當用戶按

Enter鍵時，將執(zhí)行按鈕的onclick事件處理程序。Enabled屬性：該屬性決定按鈕是否對鼠標、鍵盤和計時器事件做出響應。ModalResult屬性：該屬性確定按鈕是否以及如何關閉其父窗體。Name屬性：該屬性是組件的名稱，與Caption不同，它不顯示在組件表面，而是在應用程序代碼中作為組件的名稱。第19頁/共47頁2、TBitBtn組件TBit

Btn位圖按鈕組件位于組件面板的Additional選項卡上，為圖形按鈕組件用途：TBit

Btn組件與其他按鈕一樣，在對話框和窗體中廣泛使用。該組件的作用和TButton組件相同，唯一的區(qū)別是可以在位圖按鈕上同時顯示文本信息和位圖。主要屬性第20頁/共47頁3、TSpeedButton組件第21頁/共47頁

TSpeedButton組件位于組件面板Additional選項卡上，為加速按鈕組件。

用途：TSpeedButton組件可以同時顯示圖形和文字，用法與位圖按鈕很相似。在按鈕上顯示圖像時，它的圖像必須是

Windows的位圖文件（.bmp）。該組件常和TToolBar、TPanel等組件一起使用，用戶使用該組件可快速建立工具欄和工具面板。主要屬性四、單選按鈕和復選框第22頁/共47頁1．TRadio

Button組件也稱為開關按鈕。TRadio

Button組件也稱為開關按鈕。單選按鈕為用戶提供了一組相互排斥的選項按鈕，無論何時選項組中最多只有一個選項被選擇。如果在選擇過程中又選擇了另一個按鈕，則先前被選擇的按鈕會自動變成未選擇。主要屬性：TRadio

Button組件的屬性第23頁/共47頁(1)Checked屬性：該屬性表示單選按鈕是否被選中。如果該屬性為true，則單選按鈕的框中出現一個圓點并表示選中；默認值為false，表示未選中。(2)Enable屬性：該屬性用來控制單選按鈕是否處于激活狀態(tài)。默認值為true，即激活狀態(tài)；當該屬性為false時，處于非激活狀態(tài)，此時組件上顯示的字體為灰色，表示該按鈕不起作用。(3)Visible屬性：該屬性決定該單選按鈕在窗體上是否可視。默認值為true，即可視。2、TCheck

Box復選框組件第24頁/共47頁

位于組件面板的Standard選項卡上，為復選按鈕組件，可以組成多項選擇。TCheckBox組件稱為復選框，用戶可通過單擊一個選項來選擇或取消選擇該選項，在一個選擇組框中一次可做出多項選擇。主要屬性

(1)Alignment屬性：該屬性用于設置復選按鈕上文字的位置。

taRightJustify表示文字顯示在小方框的右邊；taLeftJustify表示文字顯示在小方框的左邊。

(2)AllowGrayed屬性：該屬性的默認值為false，這時復選框只有兩種狀態(tài)，即“選中”、“未選中”。但當該屬性為true，復選框則有3種狀態(tài)，即“選中”、“未選中”和“部分選中”（灰色）。TCheck

Box復選框組件第25頁/共47頁

(3)State屬性：該屬性用來設置或返回復選框的狀態(tài)，可取以下值：cbChecked：表示復選框處于啟用狀態(tài)。cbUnchecked：表示復選框處于未啟用狀態(tài)。cbGrayed：表示復選框處于啟用且變灰狀態(tài)。

(4)Check屬性：該屬性用來檢測復選框當前處于什么狀態(tài)，為

true表示選中，為false表示未選中。如果復選框的State屬性為cbGrayed或cbUnchecked，則Check屬性為false。五、TList

Box列表框組件第26頁/共47頁位于組件面板的Standard選項卡上，可以顯示一系列字符串，用戶可以選中其中的一個或多個。用途：TList

Box組件用來顯示可滾動的項目列表，在項目列表中可以選擇一個或多個項目，但不能直接對這些項目進行修改。列表框中的項目列表是Items屬性的值，可使用方法對列表框中的項目進行增加、刪除和插入操作。主要屬性第27頁/共47頁Columns屬性：該屬性用來設置列表框中項目的列數，默認值為0，表示列表框以單列顯示。Extended

Select屬性：該屬性設置是否允許使用Shift鍵和Ctrl鍵對列表框中的項目進行連續(xù)選擇。只有當該屬性為true時，組件的Multi

Select屬性才起作用，通過配合

Shift鍵選擇連續(xù)多個項目，通過配合Ctrl鍵選擇不連續(xù)的多個項目。如果將該屬性設置為false，那么Multi

Select屬性即便設置成true也無意義。Integral

Height屬性：該屬性設置列表框在窗體上的顯示方式。設置為true時，在垂直方向上可完整地看到列表框的項目；設置為false時，列表框的高度由Item

Height屬性決定。Item

Height屬性：當列表框的Style屬性設置為lb

Owner

Drag

Fixed時，列表框中的每一個項目的高度由Item

Height屬性來決定；當Style屬性為其他值時，

ItemHeight屬性無意義。Item

Index屬性：該屬性返回列表框中的選中項目的索引號，從0開始，依次增1。屬性第28頁/共47頁(6)Items屬性：該屬性用于設置列表框中顯示的內容。當按下Items屬性右邊的“…”

按鈕時，將彈出Srting

List

Editor窗口，用戶可在該編輯窗口中輸入將要在列表框中顯示項目的默認值。用戶也可在程序執(zhí)行過程中通過調用方法動態(tài)地向列表框中增加項目，如在窗體中有一個列表框組件List

Box

1，則可通過代碼改變列表框的內容，其方法如下：l向列表框中增加項目：List

Box

1.Items.Add("增加的新項目")l刪除當前選中的項目：List

Box

1

.

Items.

Delete

(

List

Box

1

.

Item

Index)l

清除所有項目：List

Box

1

.

ClearMulti

Select屬性：該屬性用來設置用戶是否可從列表框中一次選中多項。其值為

true時，用戶可選擇多項。Sel

Count屬性：當Multi

Select屬性設置為true時，該屬性返回在列表框中用戶選擇項目的個數。屬性Selected屬性：該屬性用來檢測在列表框中某一項目是否被選擇，該屬性為true，表示指定的項目被用戶選中。Sorted屬性：該屬性用來控制列表框中的數據是否自動進行排序。如果將其設置為true，那么列表框的數據按字母順序進行排序；默認值為

false，即不對數據進行排序。Style屬性：該屬性用來設置列表框中項目的顯示方式。常取以下值：

l

lbOwnerDrawFixed:列表框中的每個項目可以是字符，也可以是圖像，其高度由ItemHeigh屬性決定。l

lbOwnerDrawVariable：列表框中的每個項目可以是字符或圖像，其高度可變。l

lbStandard：默認值，即列表框中的每個項目作為一個高度相同的字符串顯示。第29頁/共47頁例第30頁/共47頁【例3-3】在窗體中新添加一個標簽和一個列表框，用來輸入籍貫，要求使用動態(tài)方法向列表框中增加內容。添加如下代碼：procedure

TInput

Form.

Form

Create(

Sender:

Tobject);//使用Add方法向列表框增加項目begin//輸入如下7行代碼

List

Box

1.Items.Add("山西");List

Box

1.Items.Add("北京");List

Box

1.Items.Add("河北");List

Box

1.Items.Add("河南");List

Box

1.Items.Add("湖南");List

Box

1.Items.Add("內蒙古");List

Box

1.Items.Add(‘福建’);end;六、組合框-----TComboBox組件TComboBox組合框組件位于組件面板的Standard選項卡上組合框由一個編輯框和一個下拉式列表框組成，可以從多個列表條目中選擇一個。1．用途TComboBox組件是設計Windows應用程序時使用較多的組件之一。該組件匯集了列表框和文本框的功能，其作用是供用戶從下拉列表中選擇數據或直接向組合框中輸入數據。組合框下拉列表的內容是該組件的Items屬性值，Items屬性是串類型。2．主要屬性(1)DropDownCount屬性：該屬性用來設置組合框下

拉列表中可顯示的文本行數。默認值為8，即下拉列表在不需要滾動的情況下可以顯示8個項目（8行文本）。第31頁/共47頁主要屬性第32頁/共47頁Enabled屬性：該屬性用來設置是否使組合框處于激活狀態(tài)。如果將其設置為false，則組合框處于非激活狀態(tài)，程序運行時組合框區(qū)域呈灰色顯示。Style屬性：該屬性用來設置組合框中項目的顯示方式?？扇∫韵轮担?/p>

Cs

Drop

Down：為默認值，是由編輯框和列表框組合而成的組合框，列表框中的每一個項目都是高度相同的字符串。

Cs

Drop

Down

List：只有列表框而沒有編輯框，每一個項目都是高度相同的字符串。

Cs

Owner

Draw

Fixed：和List

Box組件的

lb

Owner

Draw

Fixed方式相同。

Cs

Owner

Draw

Variable：和List

Box組件的

lb

Owner

Draw

Variable方式相同。Cs

Simple：只有編輯框而沒有列表框。Text屬性：該屬性用來設置或返回編輯框上顯示出來的文字內容，也可在程序中給該屬性賦值。該屬性的賦值語句為：<組合框名>.Text:=<組合框名>.Item[索引號];ItemIndex屬性：該屬性返回ComboBox中被選中項目的索引號，從0開始，依次加1。SetText屬性：該屬性返回ComboBox中被選中的文本。

另外，用戶可通過Add、Delete和Insert方法對列表中的項目（Item）進行增加、刪除和插入操作。第33頁/共47頁第34頁/共47頁case

radiogroup

1

.

Item

Index

of0:m

1.text:="您的職業(yè)是學生";1:m

1.text:="您的職業(yè)是工人";2:m

1.text:="您的職業(yè)是教師";3:m

1.text:="您的職業(yè)是農民";end;第35頁/共47頁參考:M

1.lines.delete(0);//刪除第一行M

1.lines.insert(1,’line

inserted’);//第二行后加一行;M

1.lines[1]:=‘

’;//更改第二行內容;Edit

1

.

text:

=M

1

.

lines[

1

];M

1.lines.clear;//清除M

1中所有文本第36頁/共47頁ifc1.Checked

thenm1.lines.Add("您愛好足球.");ifc2.Checked

thenm1.lines.add("您愛好籃球.");ifc3.Checked

thenm1.lines.add("您愛好網球.");ifc4.Checked

thenm1.lines.add("您愛好乒乓球.");ifc5.Checked

thenm1.lines.add("您愛好羽毛球.");第37頁/共47頁第38頁/共47頁TBitBtn組件的主要屬性第39頁/共47頁Glyph屬性：該屬性指定在用戶選擇的位圖按鈕表面設置圖形。單擊該屬性右邊的

“…”按鈕，彈出裝入位圖文件的Picture

Editor對話框（如圖4-6

），在其中單擊

Load按鈕選擇用戶需要的位圖，此時選擇的位圖將顯示在對話框中，再單擊OK按鈕后，位圖將顯示在按鈕上。Kind屬性：該屬性決定位圖按鈕的種類，包括bk

Abort、bk

All、bk

Cancel、bkClose、bk

Custom、bk

Help、bk

Ignore、bk

No、bk

OK、bk

Retry、bk

Retry。Layout屬性：該屬性決定位圖在按鈕上的顯示位置，即位圖可以顯示在按鈕的左邊、右邊、上邊或下邊。Margin屬性：該屬性確定位圖按鈕邊沿和位圖邊沿之間的距離，單位為像素。該屬性的默認值為-1，表示位圖和文字都在按鈕的中間顯示，但相互不重疊。Num

Glyphs屬性：當用戶為位圖按鈕在Glyph屬性中指定多個圖像時，必須用該屬性指定按鈕要顯示的圖像，它的值可以是1

～4之一，默認值為1。TBitBtn組件的主要屬性第40頁/共47頁Spacing屬性：該屬性確定位圖按鈕上圖像和標題之間的間隔。該屬性值可以是負數、0和正數，默認值為4。Style屬性：該屬性決定位圖按鈕的外觀，共有3種可能的值：

bsAutoDetect、bsWin31和bsNew，即位圖按鈕采用Windows哪一種版本的風格。l

bsAutoDetect：表示當使用Windows

3.x時，位圖按鈕采用標準的

Windows

3.x外觀，當使用Windows

3.x以后的版本時，位圖按鈕采用較新的外觀。l

bsWin31：表示不考慮所運行的Windows版本而采用標準的Windows3.1外觀。l

bsNew：表示不考慮所運行的Windows版本而采用新的位圖按鈕外觀。返回TSpeedButton組件的主要屬性第41頁/共47頁Allow

All

Up屬性：該屬性決定組中的快速按鈕是否可一個都不選擇。如果將其設置為true，那么在同一組中的快速按鈕可一個都不選擇，但可以出現；如果將其設置為

false，則必須選擇同一組中的快速按鈕之一，即處于被按下狀態(tài)，默認值為false。Down屬性：該屬性用來設置顯示狀態(tài)。如果將其設置為true，那么快速按鈕以按下狀態(tài)（Down）顯示；如果將其設置為false，則快速按鈕以未選中（Un

Select）狀態(tài)顯示。Flat屬性：該屬性值為true，則按鈕在未選中狀態(tài)下沒有邊框，只有在選中狀態(tài)下才有邊框。Group

Index屬性：該屬性決定哪些快速按鈕作為一組。默認時，它的值為0，表示該組件不屬于某個組。具有相同Group

Index屬性值且不為0的快速按鈕屬于同一個組，當單擊其中之一時，該按鈕一直保持按下（Down）狀態(tài)，直到單擊了同一組的另一個按鈕為止?！纠?-1】第42頁/共47頁創(chuàng)建“人事管理”文件夾，用來保存該應用程序代碼。創(chuàng)建一個工程RsglPrj.dpr，登錄窗體設計界面如圖

4-2所示，包含六個組件，即兩個Label組件用于顯示提示信息；兩個TEdit組件（UseName用于輸入用戶名，PassWord用于輸入用戶口令）；二個TButton組件。組件的屬性設置。編寫login窗體相應的程序代碼。按F9鍵運行程序。在用戶名中輸入“yonghu”，在

口令中輸入正確的口令“12345”，單擊“確定”按鈕，即可運行。保存程序。選擇File→Save

All選項，出現一個SaveAs對話框，用戶選擇保存位置為“人事管理”文件夾，使用DengLuUnit.pas對單元文件進行命名，使用

RsglPrj.dpr對工程文件進行命名。返回?第43頁/共47頁?

掩碼編輯框（MaskEdit）是一種特殊的編輯框。使用它可以設計出許多復雜的輸入格式。在選用MaskEdit之后，需要為它設計一個輸入格式。方法如下：首先在窗體上將MaskEdit選中，在對象查看器（ObjectInspector）中找到EditMask屬性，雙擊它，彈出一個如下圖所示的對話框。對話框左上角的Input

Mask編輯框用于輸入掩碼格式。掩碼格式可以分為三部分，每個部分之間用分號“；”分開，如

“!90:90:90:;1;_”。下面解釋各輸入格式符的意義：?

1.

輸