第2章窗體及常用組件3

任課教師：楊超電子郵箱:

yangchao_69@163.com測控軟件設(shè)計1第2章第12節(jié)列表框和組合框

列表框(ListBox)組件位于Standard頁，可以容納多條內(nèi)容并顯示出來，供用戶選擇；組件會根據(jù)內(nèi)容多少自動顯示滾動條。除公共屬性外，其重要屬性如下：(1)AutoComplete：是否可以輸入第一個字符實現(xiàn)自動選擇；(2)BorderStyle：設(shè)置其邊界類型；(3)Columns：設(shè)置其顯示內(nèi)容的列數(shù)；如果只有1列，不能同時顯示全部內(nèi)容時，自動增加垂直滾動條；如果列數(shù)>1，不能同時顯示全部內(nèi)容時，自動增加水平滾動條。(4)Count：組件里內(nèi)容的總(條)數(shù)；2第2章第12節(jié)列表框和組合框

(5)Items：組件里的所有內(nèi)容；(6)ItemIndex：組件里的被選中內(nèi)容對應(yīng)的索引。(7)MultiSelect：是否可以同時選擇多條內(nèi)容；(8)ExtendedSelect：是否可以擴展選擇，即用鼠標畫框選擇，或用鼠標配合“Shift”鍵、“Ctrl”鍵實現(xiàn)多條選擇。(9)SelCount：返回被選中條目的數(shù)量；(10)Selected[Ind]：判斷第Ind條是否被選中；(11)Sorted：是否將組件里的內(nèi)容自動排序；(12)Style：設(shè)置組件的類型。 3第2章第12節(jié)列表框和組合框

列表框(ListBox)

的常用事件如下：(1)OnClick：單擊組件中的某個條目時發(fā)生；(2)OnEnter：獲得焦點時發(fā)生；(3)OnExit：輸入焦點離開時發(fā)生；OnClick事件最常用。4第2章第12節(jié)列表框和組合框

列表框(ListBox)

屬性和方法的使用：組件名.Items.Add(S)：向列表框添加內(nèi)容；組件名.Clear：清除列表框所有內(nèi)容；組件名.DeleteSelected：從列表框刪除所選內(nèi)容；組件名.SetFocus：將輸入焦點送給列表框。組件名.SelectAll：選中列表框所有內(nèi)容；組件名.Count：返回列表框所有內(nèi)容條目數(shù)；組件名.Selected[Ind]：判斷列表框第Ind條內(nèi)容是否被選中；組件名.SelCount：返回列表框所選內(nèi)容個數(shù)。5第2章第12節(jié)列表框和組合框

組合框(ComboBox)組件位于Standard頁，可以容納多條內(nèi)容并顯示出來，供用戶選擇；組件會根據(jù)內(nèi)容多少自動顯示垂直滾動條。除公共屬性外，其重要屬性如下：(1)AutoComplete：是否根據(jù)輸入的第一個字符實現(xiàn)自動選擇；(2)AutoDropDown：用戶輸入一個字符時是否自動打開下拉列表；(3)CharCase：設(shè)置組件內(nèi)容的顯示方式(全部大寫、正常、全部小寫)；(4)DropDownCount：打開下拉列表時顯示內(nèi)容的條數(shù)；

(5)Items：組件里的所有內(nèi)容；(6)Items.Count：組件里內(nèi)容的總(條)數(shù)；6第2章第12節(jié)列表框和組合框

(7)ItemIndex：組件里被選中內(nèi)容對應(yīng)的索引；

(8)Sorted：是否將組件里的內(nèi)容自動排序；(9)Style：設(shè)置組件的類型；(10)Text：選中的內(nèi)容文本。組合框每次只能選擇一條內(nèi)容，選中的內(nèi)容就顯示在組件上。組合框(ComboBox)

的常用事件如下：(1)OnClick：單擊組件中的某個條目時發(fā)生；(2)OnChange：Text屬性變化時發(fā)生；(3)OnEnter：獲得焦點時發(fā)生；(4)OnExit：輸入焦點離開時發(fā)生；7第2章第12節(jié)列表框和組合框

組合框(ComboBox)

屬性和方法的使用：組件名.Items.Add(S)：向組合框添加內(nèi)容；組件名.Clear：清除組合框所有內(nèi)容；組件名.DeleteSelected：從組合框刪除所選內(nèi)容；組件名.SetFocus：將輸入焦點送給組合框。組件名.SelectAll：選中組合框所有內(nèi)容；組件名.Items.Count：返回組合框所有內(nèi)容條目數(shù)；組件名.ItemIndex：返回組合框被選中內(nèi)容的索引。8第2章列表框和組合框演習

點擊將左側(cè)列表框的內(nèi)容全部送至右側(cè)列表框和組合框點擊將右側(cè)組合框的內(nèi)容全部送至左側(cè)列表框點擊將編輯框的內(nèi)容添加至左側(cè)列表框點擊顯示組合框和2個列表框內(nèi)容的信息點擊清除備注組件里的信息點擊刪除左側(cè)列表框選中的內(nèi)容點擊刪除左側(cè)列表框的所有內(nèi)容點擊選中左側(cè)列表框的所有內(nèi)容9第2章第13節(jié)

集合組件一、組框(GroupBox)

組框是容器組件，位移Standard頁，其它組件放入其中，組框成為放入其中組件的父組件，移動組框，則其中的組件將同時被移動，且相對位置不變。如下圖，GroupBox2是單選按鈕1～4的容器(父組件)。編寫組框的命令代碼，只要對其中組件編寫事件代碼即可。10第2章第13節(jié)

集合組件二、單選組框(RadioGroup)

單選組框是容器組件，位移Standard頁，是只包含單選按鈕的組框(其它組件無法放入其中)，通過Items屬性設(shè)置其單選項，通過Columns屬性設(shè)置單選項分幾列顯示，通過ItemIndex屬性設(shè)置/獲得選中項的索引。最主要事件是：OnClick。與組框的區(qū)別：組框無Items、Columns、ItemIndex屬性。11第2章第13節(jié)

集合組件三、面板(Panel)

面板是容器組件，位移Standard頁，其它組件放入其中，面板成為放入其中組件的父組件，移動面板，則其中的組件將同時被移動，且相對位置不變。主要用于對組件分組、布局界面。一般不編寫面板事件。

面板的邊框形式可通過改變BevelInner、BevelOuter、BorderStyle屬性來設(shè)置。12第2章第14節(jié)更高級的組件一、標簽編輯框(LabeledEdit)標簽編輯框組件，位于Additional頁，或稱作帶標簽的編輯框，由標簽和編輯框組合而成的組件，其屬性、方法和事件也是二者的組合。該組件以編輯框為主，選中編輯框才能選中該組件；通過EditLabel屬性可設(shè)置標簽的屬性，通過LabelPosition屬性可改變標簽的位置，通過LabelSpacing屬性可改變標簽與編輯框之間的距離(點數(shù))。13第2章第14節(jié)更高級的組件二、顏色組合列表框顏色組合列表框位于Additional頁，是可供選擇顏色的組合列表框。其重要屬性包括：DropDownCount(展開下拉列表時顯示的個數(shù))；Selected(選中的顏色)；Style(該組件包含那些顏色)。常用事件：OnChange,OnClick。例如選擇顏色改變面板的顏色：procedureTForm1.CBClick(Sender:TObject);beginPanel.Color:=CB.Selected;end;//CB是顏色組合列表框的名稱Panel14第2章第14節(jié)更高級的組件三、復選列表框(CheckListBox)

復選列表框組件位于Additional頁，是包含一系列復選框的列表框組件，因此，該組件的屬性、事件和方法是復選框組件與列表框組件的綜合。編程時采用列表框組件或復選列表框組件均可，取決于個人喜好，編程的難易程度差別不大。

判斷第N

項被選中，對于復選列表框：If組件名.