12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程第八章窗體和常用組件本章學(xué)習(xí)導(dǎo)讀8.1窗體基礎(chǔ)知識(shí)8.2組件概述8.3窗體的組件對(duì)象8.4按鈕類組件8.5文本對(duì)象框組件8.6菜單、工具欄和狀態(tài)欄組件8.7對(duì)話框類組件8.8計(jì)時(shí)器組件8.9安裝新組件本章小結(jié)12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程本章學(xué)習(xí)導(dǎo)讀友好、簡單的界面是一個(gè)優(yōu)秀軟件的基本要素之一。用戶在操作計(jì)算機(jī)時(shí)不需要使用大量的專業(yè)術(shù)語，更不需要記住繁雜的命令，只需點(diǎn)擊鼠標(biāo)即可，大部分Windows軟件都需要適應(yīng)這種計(jì)算機(jī)大眾化的潮流，這就對(duì)程序設(shè)計(jì)的界面提供了更高的要求。本章首先對(duì)窗體、組件的基本屬性、方法和事件做了介紹，然后對(duì)簡單組件、菜單欄、工具欄、狀態(tài)欄、對(duì)話框、計(jì)時(shí)器以及新組件的安裝進(jìn)一步說明，希望大家能夠掌握常用組件的使用技巧。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.1窗體基礎(chǔ)知識(shí)8.1.1窗體的屬性、方法和事件8.1.2窗體的創(chuàng)建和銷毀12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.1.1窗體的屬性、方法和事件在Delphi中，窗體（Form）組件是一個(gè)特殊的組件，任何組件都要放到該組件中，因此，F(xiàn)orm起到容器的作用，如果沒有窗體，那么所謂的圖形用戶界面就不存在了。1．窗體的基本屬性（1）Active屬性該屬性用于判斷窗體是否處于激活狀態(tài)，如果窗體是當(dāng)前打開窗體，它的Active屬性值為True，否則為False。（2）AutoScroll屬性該屬性決定窗體上是否出現(xiàn)滾動(dòng)條。如果屬性值為True，當(dāng)當(dāng)前組件不能完全顯示它包含的所有組件時(shí)，窗體將自動(dòng)出現(xiàn)滾動(dòng)條，可以通過滾動(dòng)條查看窗體中的所有控件，如果屬性值為False，滾動(dòng)條始終不出現(xiàn)。（3）BorderIcons屬性該屬性定義了出現(xiàn)在窗口標(biāo)題欄中的按鈕12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.1.1窗體的屬性、方法和事件（4）BorderStyle屬性該屬性用來設(shè)置窗體的外觀和邊框（5）Caption屬性該屬性用來指定窗體標(biāo)題欄左側(cè)的說明文字內(nèi)容。（6）Color屬性該屬性用來指定窗體的工作區(qū)顏色，它的默認(rèn)值為clBtnFace，即我們所常見的背景色－灰色。（7）Font屬性該屬性用來指定窗體中文字的字體、顏色、大小等。如果將窗體中組件的屬性ParentFont設(shè)置為True，則該組件的字體就與其父窗體的字體設(shè)置完全相同。在程序設(shè)計(jì)過程中，為了保持風(fēng)格統(tǒng)一，應(yīng)使工程中的窗體風(fēng)格盡量一致，可以先設(shè)置窗體的Font屬性，然后使窗體中所有組件的ParentFont屬性值為True（組件的默認(rèn)值）就可以了，一般不單獨(dú)設(shè)置窗體中組件的Font屬性。（8）FormStyle屬性FormStyle屬性用來指定窗體類型12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.1.1窗體的屬性、方法和事件（9）Icon屬性該屬性用來指定標(biāo)題欄左側(cè)顯示的圖標(biāo)。（10）Name屬性該屬性用來標(biāo)識(shí)工程中的窗體。通常，在系統(tǒng)的設(shè)計(jì)階段就應(yīng)確定工程中的所有窗體名稱，在編碼階段根據(jù)設(shè)計(jì)文檔修改相應(yīng)窗體的Name屬性，一般不在程序運(yùn)行期間通過代碼修改Name屬性。（11）Position屬性該屬性用來設(shè)置窗體的大小和顯示的位置。（12）WindowsState屬性該屬性用來設(shè)置窗體的顯示狀態(tài)12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.1.2窗體的創(chuàng)建和銷毀1．窗體的創(chuàng)建（1）在集成開發(fā)環(huán)境中創(chuàng)建在Delphi7的集成開發(fā)環(huán)境中，選擇“文件|新建|窗體”，即可創(chuàng)建一個(gè)窗體（2）Create語句動(dòng)態(tài)創(chuàng)建動(dòng)態(tài)的創(chuàng)建窗體，見代碼：procedureTForm1.Button1Click(Sender:TObject);varForm2:TForm;beginForm2:=TForm.Create(Self);Form2.Caption:='新建的窗體Form2';Form2.Show;end;

12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.1.2窗體的創(chuàng)建和銷毀2．窗體的釋放（1）Free釋放銷毀一個(gè)動(dòng)態(tài)創(chuàng)建的TForm對(duì)象，釋放TForm對(duì)象所占用的內(nèi)存，可以用下列語句實(shí)現(xiàn)：Form1.Free;（2）Release釋放該方法的調(diào)用，將釋放窗體及其包含的組件占用的內(nèi)存空間，它和Free方法類似，只是該方法要等到窗體的所有事件句柄或窗體中各組件的事件句柄全部執(zhí)行完畢后，才釋放窗體，可以用下列語句實(shí)現(xiàn)：Form1.Release;（3）Destroy釋放判斷對(duì)象是否為空，如果不為空就會(huì)銷毀一個(gè)對(duì)象，釋放所占據(jù)的內(nèi)存，否則會(huì)出現(xiàn)異常，可以用下列語句實(shí)現(xiàn)：Form1.Destroy;12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.2組件概述8.2.1組件的類型8.2.2組件的屬性、方法和事件12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.2.1組件的類型可以把組件分為四類：標(biāo)準(zhǔn)組件、圖形組件、自定義組件、非可視化組件：1．標(biāo)準(zhǔn)組件Delphi提供標(biāo)準(zhǔn)組件來封裝Windows操作系統(tǒng)控件的行為，這些組件存在于組件面板上。2．圖形組件圖形組件不需要窗口句柄，所以不消耗Windows資源，不能獲得輸入焦點(diǎn)，如TLabel、TImage。這種組件也不能作為容器在其上放置別的控件。3．自定義組件自定義組件是指那些不屬于標(biāo)準(zhǔn)Delphi組件庫的組件，換句話說，這些組件是開發(fā)人員自己編寫的，并由開發(fā)人員加入到已存在的組件集中。4．非可視化組件非可視化組件在運(yùn)行時(shí)用戶是看不見的，在設(shè)計(jì)時(shí)，它以圖標(biāo)的形式出現(xiàn)在窗體上，因此可以在設(shè)計(jì)時(shí)將鼠標(biāo)移到組件上查看其屬性。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.2.2組件的屬性、方法和事件1．組件的屬性屬性是組件的一項(xiàng)描述內(nèi)容，用以描述對(duì)象的一個(gè)特性，不同的組件有不同的屬性，而每個(gè)對(duì)象都由若干屬性來描述。在可視化編程中，常見的屬性有標(biāo)題（Caption）、名稱（Name）和字體（Font）等。通過修改或設(shè)置某些屬性能有效的控制組件的外觀和操作。屬性值的設(shè)置或修改可以通過對(duì)象檢視器中的屬性窗口來進(jìn)行，也可以通過編程的方式在程序運(yùn)行的時(shí)候來改變對(duì)象的屬性。每個(gè)組件都有自己特定的屬性，有些屬性是所有的（或大多數(shù)）組件通用的12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.2.2組件的屬性、方法和事件2．窗體的基本方法（1）Close方法該方法的執(zhí)行將關(guān)閉窗體，其基本語法為：Form1.Close;（2）Hide方法該方法將窗體隱藏起來，其基本語法為：Form1.Hide;（3）Release方法該方法將關(guān)閉窗體并釋放窗體及窗體中組件所占用的內(nèi)存。（4）Show方法該方法將顯示窗體或?qū)⒋绑w置前，使用Show方法可以在窗體不關(guān)閉的情況下切換到調(diào)用它的窗體。值得注意的是：在調(diào)用其它窗體時(shí)，首先要將被調(diào)用窗體的單元引用到調(diào)用單元中。（5）ShowModal方法該方法將顯示一個(gè)模式窗體（即不能夠切換到其它窗體，如需切換必須關(guān)閉這個(gè)窗體）。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.2.2組件的屬性、方法和事件3．窗體的基本事件（1）OnCreate事件該事件在窗體創(chuàng)建時(shí)發(fā)生，用戶可以在該事件處理過程中對(duì)窗體進(jìn)行相關(guān)的初始化操作。（2）OnShow事件當(dāng)窗體的Visible屬性被設(shè)置為True時(shí)，觸發(fā)該事件。（3）OnActivate事件當(dāng)窗體獲得獲得焦點(diǎn)（如用戶單擊窗體）時(shí)觸發(fā)該事件。值得注意的是此事件中所有可視組件的方法都不能使用，因?yàn)樵贠nActivate事件中，可視組件還沒有建立。（4）OnPaint事件當(dāng)重繪窗體時(shí)觸發(fā)該事件。當(dāng)窗體被創(chuàng)建并且其Visible屬性為True時(shí)，OnCreate、OnShow、OnActivate、OnPaint事件將依次被觸發(fā)。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.2.2組件的屬性、方法和事件（5）OnClose事件當(dāng)窗體被關(guān)閉時(shí)觸發(fā)該事件。（6）OnKeyDown事件該事件在按下鍵盤時(shí)發(fā)生，此事件中有兩個(gè)常用參數(shù)：Key和Shift。（7）OnKeyPress事件該事件在窗體中獲得鍵盤輸入的焦點(diǎn)，并且在用戶按鍵時(shí)發(fā)生，此事件中有個(gè)重要參數(shù)：Key。（8）OnMouseDown事件該事件在按下鼠標(biāo)時(shí)發(fā)生，此事件中有兩個(gè)重要參數(shù)：Button和Shift。（9）OnMouseMove事件該事件是當(dāng)鼠標(biāo)在窗體中移動(dòng)時(shí)發(fā)生，此事件有三個(gè)重要參數(shù)：Shift、X和Y。（10）OnMouseUp事件該事件是在松開鼠標(biāo)按鍵時(shí)發(fā)生。通?？梢岳肙nMouseDown事件、OnMouseMove事件、OnMouseUp事件來實(shí)現(xiàn)畫圖程序。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.3窗體的組件對(duì)象8.3.1向窗體中添加組件8.3.2編輯組件對(duì)象12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.3.1向窗體中添加組件（1）在組件欄中需要添加的組件上單擊一下鼠標(biāo)左鍵，然后在窗體中單擊一下鼠標(biāo)左鍵并拖動(dòng)，松開鼠標(biāo)左鍵后，組件就以剛才拖動(dòng)的大小出現(xiàn)在窗體中，可自行調(diào)整控件位置及其大??；（2）在組件欄中需要添加的組件上單擊一下鼠標(biāo)左鍵，然后在窗體中單擊一下鼠標(biāo)左鍵，這時(shí)組件以固定的大小出現(xiàn)在窗體中，可自行調(diào)整控件位置及其大??；（3）在組件欄中雙擊組件，則被雙擊的組件就會(huì)以固定的大小添加到當(dāng)前默認(rèn)的窗體或容器組件中；（4）在窗體中選擇一個(gè)或多個(gè)組件，通過“編輯|復(fù)制”復(fù)制到剪貼板中，然后通過“編輯|粘貼”將剪貼板中的組件粘貼到窗體中，粘貼出來的組件與原組件具有基本一致的屬性（主要為Name屬性不同）；（5）通過快捷鍵“Ctrl＋C”將選中的組件復(fù)制到剪貼板中，“Ctrl＋V”將剪貼板的組件粘貼到窗體中。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程

8.3.2編輯組件對(duì)象1．刪除組件在窗體中選擇一個(gè)或多個(gè)組件，單擊鍵盤上的“Delete”鍵，也可以通過“編輯|剪切”命令實(shí)現(xiàn)。2．調(diào)整組件位置和大?。?）鍵盤操作利用鍵盤的“↑”、“↓”、“←”、“→”可以在窗體中選擇組件，選中某個(gè)組件后，通過“Ctrl＋↑”、“Ctrl＋↓”、“Ctrl＋←”、“Ctrl＋→”組合鍵可以改變組件的位置，通過“Shift＋↑”、“Shift＋↓”、“Shift＋←”、“Shift＋→”組合鍵可以改變組件的大小。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.3.2編輯組件對(duì)象（2）鼠標(biāo)操作利用鼠標(biāo)左鍵單擊組件，則將組件選中，這時(shí)被選中的組件四周出現(xiàn)8個(gè)正方形黑點(diǎn)，將鼠標(biāo)移動(dòng)到某個(gè)黑點(diǎn)上，鼠標(biāo)形狀將變成上下拖動(dòng)的形狀，這是按下鼠標(biāo)的左鍵進(jìn)行拖動(dòng)，即可改變控件大小，用鼠標(biāo)左鍵點(diǎn)擊控件并拖動(dòng)，可以改變組件的位置。用鼠標(biāo)粗略的改變控件的大小和位置，用鍵盤精確的改變控件的大小和位置，如果需要獲取多個(gè)大小一致的某個(gè)控件，最好使用剪切板進(jìn)行復(fù)制。（3）菜單操作選中需要調(diào)整的控件，通過“編輯|對(duì)齊”對(duì)齊多個(gè)控件，“編輯|大小”統(tǒng)一調(diào)整多個(gè)控件大小。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4按鈕類組件8.4.1Button組件8.4.2BitBtn組件8.4.3RadioButton組件和RadioGroup組件8.4.4CheckBox組件和GroupBox組件12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4.1Button組件1．Button組件的常用屬性（1）Cancel屬性當(dāng)按鈕的Cancel屬性值為True，用戶按下Esc鍵時(shí)觸發(fā)該按鈕的OnClick事件，當(dāng)按鈕的Cancel屬性值為False，用戶按下Esc鍵時(shí)不觸發(fā)該按鈕的OnClick事件，默認(rèn)值為False。（2）Default屬性當(dāng)按鈕的Default屬性值為True，用戶按下Enter鍵時(shí)觸發(fā)該按鈕的OnClick事件，當(dāng)按鈕的Default屬性值為False，用戶按下Enter鍵時(shí)不觸發(fā)該按鈕的OnClick事件，默認(rèn)值為False。但是在程序運(yùn)行期間，如果另外一個(gè)按鈕B獲得焦點(diǎn)，按鈕B將成為臨時(shí)的默認(rèn)按鈕，此時(shí)按下Enter鍵將觸發(fā)按鈕B的OnClick事件。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4.1Button組件（3）Caption屬性Caption屬性用于設(shè)置Button組件上顯示的文字，可以將Caption屬性值中字符前添加“&”將該字符設(shè)為快捷鍵，窗體處于激活狀態(tài)時(shí)，按下“Alt＋該字符”將觸發(fā)該按鈕的OnClick事件。（4）Enabled屬性當(dāng)Enabled屬性值為False，則運(yùn)行時(shí)按鈕以淺灰色顯示（設(shè)計(jì)時(shí)與屬性值為True的按鈕沒有任何區(qū)別）表明按鈕無效，即按鈕不能獲得焦點(diǎn)，通過鼠標(biāo)、鍵盤或快捷鍵均不能觸發(fā)該按鈕的OnClick事件，默認(rèn)屬性值為True。（5）Visible屬性當(dāng)Visible屬性設(shè)置為False時(shí)，運(yùn)行時(shí)按鈕不可見，設(shè)計(jì)時(shí)與屬性值為True的按鈕沒有任何區(qū)別，當(dāng)Visible屬性設(shè)置為True時(shí)，運(yùn)行時(shí)可見。（6）WordWrap屬性當(dāng)WordWrap屬性值為False時(shí)，按鈕上文字長度超過按鈕大小時(shí)自動(dòng)換行，否則不自動(dòng)換行。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4.1Button組件（7）TabOrder屬性TabOrder屬性用來指定按Tab鍵時(shí)獲得焦點(diǎn)的順序。TabOrder屬性的取值類型為Integer，從0開始。TabOrder屬性的設(shè)置適用于所有能夠獲得焦點(diǎn)的組件，可以在組件上單擊鼠標(biāo)右鍵，在彈出菜單上選擇“Tab鍵順序…”來設(shè)置Tab鍵順序。（8）Font屬性Font屬性用來設(shè)置Button組件內(nèi)顯示的文字大小、字體和格式等，單擊Font屬性左側(cè)的“＋”顯示Font屬性的子屬性，其中Color子屬性用來設(shè)置文字的顏色，Name子屬性用來設(shè)置字體（如“黑體”），Size子屬性用來設(shè)置文字的大小，其取值為Integer類型，Style子屬性用來設(shè)置文字的樣式，如粗體（fsBold）、斜體（fsItalic）、下劃線（fsUnderline）和刪除線（fsStrikeOut）。Font屬性的設(shè)置適用于所有可視組件。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4.1Button組件2．Button組件的常用事件Button組件最常用的就是用戶單擊按鈕時(shí)觸發(fā)的OnClik事件，當(dāng)單擊按鈕時(shí)，改變按鈕位置和顯示文字的實(shí)現(xiàn)步驟如下：（1）將一個(gè)Button組件放置到窗體上；（2）選中按鈕，在對(duì)象檢視器中選中Events選項(xiàng)卡，選中OnClick事件后會(huì)有一個(gè)獲得焦點(diǎn)的下拉列表框，雙擊該下拉列表框，進(jìn)入該按鈕的OnClick事件?；蛘哌x中按鈕后雙擊按鈕，添加下例所示代碼：Button1.Left:=100;//改變按鈕橫坐標(biāo)Button1.Top:=10;//改變按鈕縱坐標(biāo)Button1.WordWrap:=True;//當(dāng)按鈕文字長度超過按鈕大小時(shí)自動(dòng)換行Button1.Caption:='能改變位置的按鈕';//改變按鈕上顯示文字12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4.2BitBtn組件（1）Kind屬性Kind屬性用于設(shè)置按鈕上的圖像，一共有十一個(gè)值，一個(gè)比較特殊的屬性值為bkCustom，當(dāng)Kind屬性值為bkCustom時(shí)用戶可以使用自己制作的圖形，在Glyph屬性中設(shè)置圖形路徑。（2）Glyph屬性當(dāng)Kind屬性值為bkCustom時(shí)，Glyph屬性為圖片路徑，能夠?qū)?個(gè)圖片同時(shí)指定給Glyph，分別表示按鈕的未選擇、禁止、單擊、單擊且保持按下時(shí)的狀態(tài)。（3）Layout屬性Layout屬性用來設(shè)置按鈕上文字與圖片的相對(duì)位置：blGlyphTop（圖片在文字上方）、blGlyphBottom（圖片在文字下方）、blGlyphLeft（圖片在文字左邊、默認(rèn)值）、blGlyphRight（圖片在文字右邊）。（4）Margin屬性Margin屬性用來設(shè)置圖片與按鈕邊界的距離。（5）Spacing屬性Spacing屬性用來設(shè)置按鈕上圖片與文字的距離。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4.3RadioButton組件和RadioGroup組件1．RadioButton組件RadioButton組件也稱為單選按鈕，用于直觀的表示某個(gè)選項(xiàng)是否選中，這些選項(xiàng)是互斥的，通常成組的使用，默認(rèn)情況下，放在同一個(gè)容器如Form、Panel、RadioGroup、GroupBox中的單選按鈕總是自動(dòng)的變成一組，一組選項(xiàng)中只能有一個(gè)選項(xiàng)被選中，選擇了其中一個(gè)選項(xiàng)，同一組中的其它選項(xiàng)將自動(dòng)處于非選擇狀態(tài)。設(shè)計(jì)過程中，總是先添加一個(gè)分組組件（如Panel、RadioGroup、GroupBox），然后向分組組件中添加適當(dāng)數(shù)量的RadioButton組件，這樣，同一個(gè)分組框中的單選按鈕就自動(dòng)成為一組?？梢酝ㄟ^RadioButton組件的Checked屬性來判斷哪一個(gè)單選按鈕被選中。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4.3RadioButton組件和RadioGroup組件（1）RadioButton組件的常用屬性：1、Alignment屬性Alignment屬性用來設(shè)置RadioButton組件上文字相對(duì)于圓框的位置，Alignment屬性值有兩個(gè)：taLeftJustify（文字在圓框左邊）、taRightJustify（文字在圓框右邊，默認(rèn)值）。

2、Checked屬性當(dāng)Checked屬性值為True時(shí)，單選按鈕為選中狀態(tài)，否則未選中，一組單選按鈕中只能有一個(gè)單選按鈕為選中狀態(tài)。（2）RadioButton組件的常用事件RadioButton組件的常用事件為OnClick事件，當(dāng)單選按鈕被選中時(shí)觸發(fā)該事件。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4.3RadioButton組件和RadioGroup組件2．RadioGroup組件RadioGroup組件是代表一組單選按鈕的組，它把幾個(gè)單選按鈕組合在一起，單選按鈕之間在選擇上是相互排斥的，當(dāng)用戶把RadioGroup組件放到窗體上后，不需要添加任何RadioButton組件，只需要設(shè)置RadioGroup組件的Items屬性，Delphi會(huì)為Items屬性中的每一行字符建立一個(gè)RadioButton組件。使用RadioGroup的優(yōu)勢不僅在于比GroupBox省事，更重要的是它可以在運(yùn)行期間方便的對(duì)RadioGroup的Items屬性進(jìn)行操作，RadioGroup能根據(jù)Items屬性的行數(shù)（即單選按鈕的個(gè)數(shù)）自動(dòng)的調(diào)整每個(gè)單選按鈕的高度。RadioGroup組件的常用屬性如下：（1）Caption屬性Caption屬性用來為單選分組框設(shè)置一個(gè)總的標(biāo)題。（2）Columns屬性Columns屬性用來設(shè)置RadioGroup組件中單選按鈕的列數(shù)，默認(rèn)值為1。（3）ItemIndex屬性ItemIndex屬性用來返回RadioGroup組件中被選中的單選按鈕的序號(hào)，第一項(xiàng)的序號(hào)為0，依次遞增，默認(rèn)為-1，表明默認(rèn)為都不選中。（4）Items屬性Items屬性是由RadioGroup組件中所有單選按鈕的文字組成的String對(duì)象。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4.3RadioButton組件和RadioGroup組件（1）將一個(gè)RadioButton組件放到窗體上，將Caption屬性設(shè)置為“改變窗體顏色”；（2）選中對(duì)象檢視器中Items屬性，單擊Items屬性右邊的“…”按鈕，打開“StringListEditor”，輸入第一行文字“窗體顏色為紅色”，第二行文字“窗體顏色為藍(lán)色”，記得一定要換行；（3）雙擊RadioGroup組件，輸入以下代碼：ifRadioGroup1.ItemIndex=0thenForm1.Color:=clRed//這里不能有分號(hào)elsebeginForm1.Color:=clBlue;RadioGroup1.Items.Add('窗體顏色為綠色');//添加一個(gè)單選按鈕

RadioGroup1.Items.Add('窗體顏色為黃色');//添加一個(gè)單選按鈕

RadioGroup1.Columns:=2;//將RadioGroup組件中的按鈕分為兩列end12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4.4CheckBox組件和GroupBox組件1．CheckBox組件CheckBox組件也稱為復(fù)選按鈕，用戶可以同時(shí)選擇一個(gè)或多個(gè)按鈕（1）CheckBox組件的常用屬性：1、Alignment屬性Alignment屬性用來設(shè)置CheckBox組件上文字相對(duì)于方框的位置，Alignment屬性值有兩個(gè)：taLeftJustify（文字在方框左邊）、taRightJustify（文字在方框右邊，默認(rèn)值）。2、AllowGrayed屬性當(dāng)AllowGrayed屬性值為True時(shí)，復(fù)選按鈕有三種狀態(tài)：選中、未選中、部分選中（灰色），當(dāng)AllowGrayed屬性值為False時(shí)，復(fù)選按鈕有兩種狀態(tài)：選中、未選中。3、Checked屬性當(dāng)Checked屬性值為True時(shí)，復(fù)選按鈕為選中狀態(tài)，當(dāng)Checked屬性值為False時(shí)，復(fù)選按鈕為未選中狀態(tài)。4、State屬性State屬性有三個(gè)取值：cbChecked（選中）、cbGrayed（部分選中）、cbUnchecked（未選中）。（2）CheckBox組件的常用事件：復(fù)選按鈕最常用的事件為OnClick事件，當(dāng)用戶單擊復(fù)選按鈕使之狀態(tài)發(fā)生改變時(shí)觸發(fā)該事件。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4.4CheckBox組件和GroupBox組件2．GroupBox組件GroupBox組件是通用的分組組件，不僅可以為單選按鈕和復(fù)選按鈕分組，還可以放置其它組件，包括GroupBox組件本身，當(dāng)一個(gè)組件被放置到GroupBox組件中后，GroupBox組件將成為該組件的父類。它最常用的為Caption屬性，使用該屬性設(shè)置組的標(biāo)題12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.4.4CheckBox組件和GroupBox組件（1）將一個(gè)GroupBox組件放到窗體上，將Caption屬性設(shè)置為“字體復(fù)選按鈕”；（2）將一個(gè)CheckBox組件放到窗體上，將Caption屬性設(shè)置為“粗體”；（3）雙擊此復(fù)選按鈕，輸入以下代碼：GRoupBox1.Font.Style:=[];ifCheckBox1.CheckedthenGroupBox1.Font.Style:=[fsBold];ifCheckBox2.CheckedthenGroupBox1.Font.Style:=[fsItalic];（4）將另一個(gè)CheckBox組件放到窗體上，將Caption屬性設(shè)置為“斜體”；（5）雙擊此復(fù)選按鈕，輸入以下代碼：ifCheckBox2.CheckedthenGroupBox1.Font.Style:=GroupBox1.Font.Style+[fsItalic]elseGroupBox1.Font.Style:=GroupBox1.Font.Style-[fsItalic];12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5文本對(duì)象框組件8.5.1Label組件8.5.2Edit組件8.5.3ListBox組件8.5.4ComboBox組件12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5.1Label組件Label組件主要用來對(duì)窗體上的其它組件進(jìn)行說明，即顯示靜態(tài)文本，一般將其Caption屬性設(shè)置為說明文字，并放置到被說明的組件旁邊1．Label組件的常用屬性：（1）Caption屬性Caption屬性用來設(shè)置Label組件上的顯示文字。（2）Font屬性Font屬性用來設(shè)置Label組件內(nèi)顯示的文字大小、字體和格式等，單擊Font屬性左側(cè)的“＋”顯示Font屬性的子屬性，其中Color子屬性用來設(shè)置文字的顏色，Name子屬性用來設(shè)置字體（如“黑體”），Size子屬性用來設(shè)置文字的大小，其取值為Integer類型，Style子屬性用來設(shè)置文字的樣式，如粗體（fsBold）、斜體（fsItalic）、下劃線（fsUnderline）和刪除線（fsStrikeOut）。（3）AutoSize屬性為了確保程序允許時(shí)Label的顯示與設(shè)計(jì)時(shí)一樣，必須將AutoSize屬性值設(shè)置為False，使組件的大小不會(huì)隨著文字的大小自動(dòng)調(diào)整，避免Label組件尺寸發(fā)生變化。

12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5.1Label組件（4）Alignment屬性Alignment屬性用來設(shè)置Label組件上文字在水平方向上的對(duì)齊方式，它有三個(gè)取值：taCenter（水平居中）、taLeftJustify（水平居左，默認(rèn)值）、taRightJustify（水平居右）。（5）Layout屬性Layout屬性用來設(shè)置Label組件上文字在垂直方向上的對(duì)齊方式，它有三個(gè)取值：tlTop（垂直居上）、tlCenter（垂直居中）、tlBottom（垂直居下）。2．Label組件的常用事件：（1）OnMouseEnter事件當(dāng)鼠標(biāo)移動(dòng)到標(biāo)簽上時(shí)觸發(fā)該事件。（2）OnMouseLeave事件當(dāng)鼠標(biāo)離開標(biāo)簽時(shí)觸發(fā)該事件。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5.1Label組件下例演示當(dāng)鼠標(biāo)移到標(biāo)簽上時(shí)，標(biāo)簽上的文字變?yōu)榧t色，當(dāng)鼠標(biāo)離開標(biāo)簽時(shí)，文字還原為黑色，步驟如下：（1）將一個(gè)Label組件放置到窗體上；（2）選中“對(duì)象檢視器”中的“Events”選項(xiàng)卡，選中“OnMouseEnter”事件后會(huì)有一個(gè)獲得焦點(diǎn)的下拉列表框，雙擊該下拉列表框，進(jìn)入該Label組件的OnMouseEnter事件中，輸入代碼：Label1.Font.Color:=clRed;（3）選中“OnMouseLeave”事件后會(huì)有一個(gè)獲得焦點(diǎn)的下拉列表框，雙擊該下拉列表框，進(jìn)入該Label組件的OnMouseLeave事件中，輸入代碼：Label1.Font.Color:=clBlack;12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5.2Edit組件Edit組件可以顯示、編輯單獨(dú)的一行文本，是常用的組件之一。1．Edit組件的常用屬性：（1）Text屬性Text屬性用來設(shè)置Edit組件上的文本內(nèi)容。是最基本的屬性。（2）ReadOnly屬性當(dāng)ReadOnly屬性設(shè)置為True時(shí)，Edit組件中的文本只能讀取，當(dāng)ReadOnly屬性設(shè)置為False時(shí)，Edit組件中的文本不光可讀，還可以編輯。（3）MaxLength屬性MaxLength屬性用來設(shè)置輸入文本的最大長度，默認(rèn)為0，沒有輸入限制。（4）PasswordChar屬性PasswordChar屬性可以將用戶輸入的所有字符以同一個(gè)字符顯示，一般用于密碼框的輸入。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5.2Edit組件2．Edit組件的常用事件：Edit組件最常用的事件（也是默認(rèn)事件，雙擊組件即可進(jìn)入事件代碼）是OnChange，當(dāng)Edit組件中的文本發(fā)生改變時(shí)觸發(fā)該事件。下例綜合了Label組件與Edit組件的應(yīng)用，當(dāng)在Edit組件中輸入文字時(shí)，在Label組件中同步顯示輸入內(nèi)容，步驟如下：（1）將一個(gè)Label組件放置到窗體上；（2）將一個(gè)Edit組件放置到窗體上；將其Text屬性設(shè)置為空，其PasswordChar屬性設(shè)置為“*”，雙擊Edit組件，輸入如下代碼：Label1.Caption:=Edit1.Text;12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5.3ListBox組件ListBox組件用于顯示一系列的列表，用戶可以選擇、加入、刪除或修改其中的項(xiàng)目1．ListBox組件的常用屬性：（1）Items屬性該屬性用來編輯ListBox組件中的項(xiàng)目。該屬性的子屬性Count可以獲得ListBox組件中存在的項(xiàng)目總數(shù)，編寫代碼時(shí)需要遍歷列表框中所有選項(xiàng)時(shí)會(huì)使用此屬性。（2）MultiSelect屬性當(dāng)該屬性值為True（默認(rèn)值）時(shí)，一次可以選擇多個(gè)項(xiàng)目，否則只能選擇單項(xiàng)。（3）ExtendedSelect屬性用戶在列表中是否能夠選擇一個(gè)區(qū)域。該屬性只有當(dāng)MultiSelect屬性值為True時(shí)起作用，當(dāng)ExtendedSelect為True時(shí)，用戶按住Shift鍵并單擊選項(xiàng)，可以將兩個(gè)選項(xiàng)及其之間的選項(xiàng)都選中。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5.3ListBox組件（4）Selected屬性該屬性用來判斷指定選項(xiàng)是否選中，當(dāng)Selected屬性值為True表明該選項(xiàng)選中。（5）Sorted屬性該屬性用來設(shè)置列表框中的項(xiàng)是否按照字母排序，默認(rèn)為不排序（False）。當(dāng)Sorted屬性設(shè)置為True時(shí)，通過調(diào)用Add或Insert所增加的項(xiàng)將自動(dòng)移到合適的地方。2．ListBox組件的常用方法：ListBox組件最常用的方法是Clear，用來清除列表框中的所有選項(xiàng)。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5.3ListBox組件（1）將一個(gè)ListBox組件放置到窗體左邊，如圖8-13所示；（2）將一個(gè)ListBox組件放置到窗體右邊，將其Sorted屬性值設(shè)置為True；（3）在窗體上放置三個(gè)Button組件，分別將其Caption屬性設(shè)置為：添加、移動(dòng)、清除；（4）雙擊“添加”按鈕，輸入代碼：ListBox1.Items.Add('aa');ListBox1.Items.Add('ee');ListBox1.Items.Add('cc');ListBox2.Items.Add('dd');ListBox2.Items.Add('bb');（5）運(yùn)行程序，點(diǎn)擊“添加按鈕”12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5.3ListBox組件（6）雙擊“移動(dòng)”按鈕，讓該按鈕的OnClick事件代碼如下：procedureTForm1.Button2Click(Sender:TObject);vari:integer;beginFori:=0toListBox1.Items.Count-1do//從上到下依次遍歷第一個(gè)列表框選項(xiàng)

ifListBox1.Selected[i]then//Selected屬性值為True表明選項(xiàng)被選中

beginListBox2.Items.Add(ListBox1.Items.Strings[i]);end;end;（7）雙擊“添加”按鈕，輸入代碼：ListBox1.Clear;ListBox2.Clear;12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5.4ComboBox組件ComBox組件組合了一個(gè)編輯框和一個(gè)可滾動(dòng)的列表，也稱為下拉列表框組件，用戶可以從列表中選擇項(xiàng)目，也可以直接在編輯框中輸入文字。組合框可以看作是一個(gè)折疊起來的列表框，與列表框相比，組合框更能節(jié)省屏幕上的空間，因?yàn)榻M合框在同一時(shí)間只顯示其中的一項(xiàng)。1．ComboBox組件的常用屬性：（1）Text屬性Text屬性用來設(shè)置編輯框中的文本。（2）DropDownCount屬性該屬性用來設(shè)置列表框中顯示條目的個(gè)數(shù)，默認(rèn)值為8，當(dāng)列表框中的條目大于DropDownCount時(shí)，列表框的右側(cè)將自動(dòng)出現(xiàn)一個(gè)垂直方向上的滾動(dòng)條，當(dāng)列表框中的條目小于DropDownCount時(shí)，列表框的高度會(huì)自動(dòng)調(diào)整為實(shí)際條目數(shù)。（3）Items屬性該屬性用來編輯ComboBox組件中的項(xiàng)目。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5.4ComboBox組件（4）Sorted屬性該屬性用來設(shè)置列表框中的項(xiàng)是否按照字母排序，默認(rèn)為不排序（False）。當(dāng)Sorted屬性設(shè)置為True時(shí)，通過調(diào)用Add或Insert所增加的項(xiàng)將自動(dòng)移到合適的地方。（5）ItemIndex屬性該屬性能夠返回組合框中被選中項(xiàng)的序號(hào)，在編寫代碼中經(jīng)常使用此屬性。2．ComboBox組件的常用事件：（1）OnDropDown事件當(dāng)用戶下拉組合框的時(shí)候觸發(fā)OnDropDown事件。（2）OnChange事件當(dāng)用戶從組合框的下拉列表中選擇了一項(xiàng)或者直接在編輯框中輸入了字符觸發(fā)OnChange事件（默認(rèn)事件，雙擊ComboBox組件時(shí)自動(dòng)進(jìn)入OnChange事件代碼）。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.5.4ComboBox組件（1）將一個(gè)ComBoBox組件放置到窗體上，選中對(duì)象檢視器中Items屬性，單擊Items屬性右邊的“…”按鈕，打開“StringListEditor”，輸入第一行文字“aaaa”，第二行文字“bbbb”，第三行文字“cccc”，記得一定要換行；（2）將一個(gè)Label組件放置到窗體上；（3）在對(duì)象檢視器中Events選項(xiàng)卡中點(diǎn)擊事件OnDropDown，出現(xiàn)一個(gè)帶有焦點(diǎn)的列表框，雙擊列表框，鍵入代碼：Label1.Caption:='點(diǎn)擊了ComBoBox組件'；（4）運(yùn)行程序，當(dāng)點(diǎn)擊下拉列表框中的小箭頭時(shí)標(biāo)簽會(huì)顯示“點(diǎn)擊了ComBoBox組件”；（5）雙擊ComBoBox組件，鍵入代碼：Label1.Caption:='改變了ComBoBox組件的選項(xiàng)'；（6）運(yùn)行程序，當(dāng)改變下拉列表框中的選項(xiàng)時(shí)標(biāo)簽會(huì)顯示“改變了ComBoBox組件的選項(xiàng)”。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.6菜單、工具欄和狀態(tài)欄組件1．主菜單應(yīng)用程序的菜單有兩種，即主菜單（MainMenu）和彈出式菜單（PopupMenu）。主菜單是一般的Windows程序所必備的組件，它顯示在固定的位置，一般用鍵盤或鼠標(biāo)左鍵來激活相應(yīng)的事件，彈出式菜單一般是不可見的，一般用鍵盤或鼠標(biāo)右鍵來激活相應(yīng)的事件，出現(xiàn)的位置由當(dāng)前激活時(shí)鼠標(biāo)的位置來決定。（1）AutoHotkeys屬性當(dāng)AutoHotkeys屬性值為maAutomatic（默認(rèn)值）時(shí)，為每一個(gè)菜單項(xiàng)自動(dòng)設(shè)置熱鍵，當(dāng)AutoHotkeys屬性值為maManual時(shí)，手動(dòng)為菜單項(xiàng)添加熱鍵。熱鍵一般用來打開頂級(jí)菜單（注意，是打開而不是執(zhí)行菜單），如Word文檔中“文件、編輯、視圖、插入、格式、工具…”為頂級(jí)菜單，頂級(jí)菜單只需打開而不需執(zhí)行。手動(dòng)設(shè)置熱鍵在輸入某菜單項(xiàng)的Caption屬性時(shí)在某個(gè)字母的前面加一個(gè)“&”符號(hào)即可，如將某頂級(jí)菜單的Caption屬性設(shè)置為“文件（&File）”，則在運(yùn)行中顯示的文字為“文件（File）”，使用“Alt＋F”鍵可以打開“文件”菜單。（2）ShortCut屬性在菜單設(shè)計(jì)窗口中，可以通過此屬性為菜單項(xiàng)設(shè)置快捷鍵，利用快捷鍵可以快速執(zhí)行菜單功能。（3）Image屬性可以為菜單添加圖標(biāo)。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.6菜單、工具欄和狀態(tài)欄組件

工具欄中存放了許多經(jīng)常使用的命令，這樣用戶在選擇要執(zhí)行的命令時(shí)，不必在菜單中尋找，大大方便的用戶的操作。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.6菜單、工具欄和狀態(tài)欄組件狀態(tài)欄位于窗口的最下面，通常顯示一些提示信息，狀態(tài)欄可以由一個(gè)或多個(gè)面板組成12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.7對(duì)話框類組件對(duì)話框組件的應(yīng)用，使用戶與程序能夠很好的交互，通過使用通用對(duì)話框庫中提供的標(biāo)準(zhǔn)對(duì)話框，用戶可以簡單的實(shí)現(xiàn)打開和保存文件、選擇顏色和字體等操作，Delphi使用組件對(duì)標(biāo)準(zhǔn)對(duì)話框進(jìn)行了封裝，所有的對(duì)話框組件均是不可視組件，使用這些對(duì)話框必須執(zhí)行一些標(biāo)準(zhǔn)的代碼，在Delphi中，每個(gè)對(duì)話框都使用Execute方法來顯示，以下是常用對(duì)話框組件：1．打開對(duì)話框（OpenDialog）OpenDialog組件用于顯示一個(gè)“文件選擇”對(duì)話框，如圖8-37所示，它顯示時(shí)，在一個(gè)列表框中顯示當(dāng)前目錄下的所有文件名，用戶可以通過鼠標(biāo)或鍵盤，選中其中一個(gè)文件，單擊“打開”按鈕，完成選擇文件的操作，一般用來加載文件。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.7對(duì)話框類組件1、FileName屬性在對(duì)話框中選中一個(gè)文件，如果單擊“打開”按鈕，對(duì)話框?qū)㈥P(guān)閉，并且FileName屬性變成用戶剛指定的文件名，包括文件的路徑和擴(kuò)展名，通常該屬性用來返回用戶選中文件的全路徑2、Title屬性該屬性用來設(shè)置對(duì)話框顯示時(shí)的窗口標(biāo)題3、InitialDir屬性此屬性用來設(shè)置打開對(duì)話框第一次打開時(shí)的默認(rèn)目錄。4、Filter屬性此屬性用來設(shè)置文件過濾器，讓對(duì)話框只列出特定類型的文件。在設(shè)計(jì)時(shí)，可以單擊OpenDialog組件Filter屬性后的“…”按鈕，打開FilterEditor對(duì)話框，其中“FilterName”表示過濾器的簡短說明，“Filter”表示通配符，如通配符“*.JPG”表示讓打開的對(duì)話框列表中只顯示擴(kuò)展名為.JPG的文件。如圖8-41所示。Filter屬性可以設(shè)置多個(gè)過濾器，當(dāng)打開對(duì)話框打開時(shí)，這些過濾器將顯示在對(duì)話框的“文件類型”組合5、FilterIndex屬性如果有多個(gè)過濾器，這個(gè)屬性用來指定哪個(gè)過濾器是默認(rèn)過濾器，默認(rèn)過濾器將顯示在打開對(duì)話框的“文件類型”組合框的編輯框中。值得注意的是過濾器的序號(hào)是從1開始，而不是以往的0開始。（2）OpenDialog組件的常用方法：OpenDialog組件最常用的方法就是Execute方法，此方法能夠顯示打開對(duì)話框，供用戶選擇文件路徑及文件名，當(dāng)用戶單擊“打開”按鈕時(shí)返回True，當(dāng)用戶選擇“取消”按鈕時(shí)返回“False”。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.7對(duì)話框類組件2．另存為對(duì)話框（SaveDialog）SaveDialog組件用于顯示一個(gè)“另存為”對(duì)話框，讓用戶輸入一個(gè)要保存的文件名，它是直接從TOpenDialog類導(dǎo)出，繼承了OpenDialog組件的屬性和方法，請(qǐng)參見OpenDialog組件的屬性與方法12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.7對(duì)話框類組件3．字體對(duì)話框（FontDialog）FontDialog組件用于顯示一個(gè)“字體”對(duì)話框，通過該對(duì)話框，用戶可以設(shè)置字體的名稱、大小和樣式。（1）FontDialog組件的常用屬性：FontDialog組件中最重用的就是Font屬性，在對(duì)象檢視器中設(shè)置Font屬性能夠指定字體對(duì)話框打開時(shí)的默認(rèn)字體。當(dāng)用戶在字體對(duì)話框中選擇一種字體并單擊“確定”按鈕時(shí)，F(xiàn)ont屬性將被設(shè)置為用戶選擇的字體屬性。（2）FontDialog組件的常用方法：FontDialog組件最常用的方法就是Execute方法，此方法能夠顯示字體對(duì)話框，供用戶選擇字體大小和樣式，當(dāng)用戶單擊“確定”按鈕時(shí)返回True，當(dāng)用戶選擇“取消”按鈕時(shí)返回“False”。12十二月2023DELPHI程序設(shè)計(jì)基礎(chǔ)教程8.7對(duì)話框類組件4．顏色對(duì)話框（ColorDialog）ColorDialog組件用于顯示一個(gè)“顏色”對(duì)話框，通過該對(duì)話框，用戶可以設(shè)置字體的顏色。（1）ColorDialog組件的常用屬性：ColorDialog組件中最重用的就是Color屬性，當(dāng)用戶在顏色對(duì)話框中選擇一種顏色并單擊“確定”按鈕時(shí)，Color屬性將被設(shè)置為用戶選擇的顏色屬性。（2）ColorDialog組件的常用方法：ColorDialog組件最常用的方法就是Execute方法，此方法能夠顯示顏色對(duì)話框，供用戶選擇字體顏色，當(dāng)用戶單擊“確定”按鈕時(shí)返回