Delphi的基本组件课件.pptVIP

RichEdit1.SetFocus;RichEdit1.SelStart:={選定文本的起始位置}。RichEdit1.SelLength:={選定文本的長度};選定文本後，就可以用SelAttributes屬性指代選定文本了。如：RichEdit1.SelStart:=20;RichEdit1.SelLength:=10;RichEdit1.SelAttributes.Color:=clgreen;4.4列表框型組件如果要從很多選項中選擇一項或多項，此時用單選按鈕組或複選框組就不太合適了。因為這經常要佔據非常大的空間，需要比較大的窗體。此時，最好的辦法是使用列表框，列表框可以在較小的空間中容納大量的選項，利用列表框，用戶還可以方便地增刪選項，這都是單選按鈕組或複選框組所不能達到的。4.4.1ListBox組件

ListBox(列表框)組件位於組件板的[Standard]選項卡上。利用列表框，用戶可以用滑鼠選擇一個或多個選項，甚至可以隨時增加或刪除某些選項。1．常用屬性

列表框屬性屬性數據類型說明ExtendedSelectBoolean確定用戶是否可以選擇連續的多個選項，缺省為FalseItemsTStrings列表框中的選項列表ItemIndexInteger列表框中當前被選中的選項ListBox1.Items[ListBox1.itemindex]MultiSelectedBoolean確定列表框是否可以多項選擇，缺省為FalseSelCountInteger返回選中專案個數，如果MultiSelected為False，則為-1（無論是否選中了一個）SelectedBoolean確定列表框中某個專案是否被選中SortedBoolean確定列表框中的內容是否按字母順序排列，缺省False屬性ExtendedSelect和MultiSelected的缺省值為false，此時列表框只能進行單項選擇。當MultiSelected屬性為True時，可以進行多項選擇。當屬性ExtendedSelect也為True時，在單擊選項的同時按下Ctrl鍵可以選擇多個不連續的選項，也可以在單擊選項後按下Shift鍵單擊另一個選項，可以選中這兩個選項之間的所有選項。Items是類TStrings的對象，單擊Items屬性右邊的屬性值編輯框中的省略號按鈕，打開[StringListeditor](字串編輯器)窗口。每一行字串表示一個選項，使用回車鍵換行。2．常用操作在列表框中，選項都存儲在Items屬性中，Items為TStrings類型。每一選項都是一String類型，都有一個索引號。選項索引號和字串只要知道一個，就可求得另一個。知道選項字串，索引號可以通過Items屬性的IndexOf方法來獲取，語法如下(假定組件為ListBox1)：ListBox1.Items.IndexOf(’選項字串’)。ListBox1.Items.IndexOf(’選項字串’)。要知道一選項是否被選定，可通過列表框的Checked屬性來判斷。列表框的Checked屬性是一布爾數組，記錄著每一列表項的狀態。因此通過“ListBox1.Checked[索引號]”(假定組件為ListBox1)的方式來判斷該選項是否被選定。若為True，則被選定，否則未被選定。而知道選項索引號，選項字串可通過Items屬性的數組性質來獲取。語法如下(假定組件為ListBox1)：ListBox1.Items[選項索引號]。要獲取在列表框中選定選項索引號，直接使用ItemIndex屬性。另外，還可以設置選項選定，語法如下(假定組件為ListBox1)：ListBox1.ItemIndex:=索引號。列表框中插入、添加、刪除選項，分別使用Items屬性的Insert、Add、Delete方法，其語法如下(假定組件為ListBox1)。ListBox1.Items.Insert(插入位置,’選項字串’)ListBox1.Items.Add(’選項字串’)。ListBox1.Delete(選項索引號)。4.4.2CheckListBox組件

對於列表框，選定一項選項後，選項被加亮。列表框