列錶框組件(TListBox)
此組件為一個標準的Windows 列錶框組件,它用於顯示一系列的列表,用戶可以選擇、加入、刪除或修改其中的項目。
1. TLlistBox 組件的典型用法
在Windows 應用程序中,經常要用到列錶框。列錶框能夠在一個可翻滾的窗口中列出多個項讓用戶選擇。例如在Delphi 的IDE 中,當使用“View”菜單上的“Component List”命令時,Delphi 將列出VCL 中的所有組件。程序中主要利用Items 屬性進行各種項目的控制,例如用Items.Strings[]獲取某個選項的內容,Items.Add()和Items.Delete()增加或刪除選項條目。通過ItemIndex 屬性指定或者獲取當前選項。
2. TListBox 組件的重要屬性
·Columns 列錶框的欄數·ExtendedSelect 此屬性用於設置是否允許使用Shift 鍵和Ctrl 鍵同時選擇多個項·IntegralHeight 列錶框的高度總是列錶框中項的高度的整數倍·ItemHeight 此屬性用於設置列錶框中每一項的高度·ItemIndex 此屬性用於設置返回列錶框中被選擇的項的序號·Items 列錶框中所有的項都是通過Items 屬性訪問的·MultiSelect 允許同時選擇多項·SelCount返回當前選擇的項的個數·Selected 此屬性用於判斷指定的項是否被選擇·Sorted 此屬性用於設置列錶框中的項是否要按字母順序排序·Style 此屬性用於設置列錶框的風格下面介紹程序中TListBox 組件常用的屬性。
(1)Columns 屬性
此屬性默認值為0,列錶框以單欄顯示,如果內容太多,列錶框將自動加上一個垂直方向的滾動條。如果此屬性設為大於0 的值,列錶框將首先填滿一欄。如果在一欄中不能完全顯示,就顯示在第2 欄、第3 欄,依次類推,但屏幕上最多只顯示Columns 屬性設置的欄數。如果此屬性設為2,屏幕上只顯示兩欄,如果實際內容不止兩欄,將自動加上一個水平方向的滾動條。
(2)ExtendedSelect 屬性
此屬性用於設置是否允許使用Shift 鍵和Ctrl 鍵同時選擇多個項,前提是MultiSelect 屬性必須設為True,如果ExtendedSelect 屬性設為True,當用戶按下並保持住Shift 鍵時就可以選擇多個連續的項,按下並保持住Ctrl 鍵就可以選擇多個項(不一定連續)。
(3)IntegralHeight 屬性
如果此屬性設為True,且Style 屬性設為IsOwnerDrawFixed 時,列錶框的高度將自動調整到列錶框中項的高度的整數倍。如果此屬性設為False,列錶框的最後一項可能不能完整地顯示,因為列錶框的高度不一定正好是ItemHeight 屬性的整數倍。
(4)ItemHeight 屬性
當Style 屬性設為IsOwnerFixed(用戶自定義)時,此屬性用於設置列錶框中每一項的高度。如果IntegralHeight 屬性設為True,整個列錶框的高度將隨著ItemHeight 屬性的值自動調整。如果Style屬性設為IsStandard 或IsOwnerDrawVariable,ItemHeight 屬性將無意義。
(5)ItemIndex 屬性
此屬性用於設置返回列錶框中被選擇的項的序號。如果MultiSelect 屬性設為True,並且用戶選擇了多個項,此屬性返回其中有輸入焦點的項的序號。程序示例代碼如下:
[delphi] view plaincopyPRocedureTForm1.FormCreate(Sender:TObject);varI:Integer;beginListBox1.MultiSelect:=False;Button.Caption='MovetoTop';forI:=1to10doListBox1.Items.Add('Item'+IntToStr(I)) ;end;procedureTForm1.Button1Click(Sender:TObject);beginListBox1.Items.Move(ListBox1.ItemIndex,0);end;
(6)Items 屬性
列錶框中所有的項都是通過Items 屬性訪問的,Items 屬性是個典型的TStrings 對象,通過這個對象,可以在運行期操縱列錶框中的項,程序示例代碼如下:
[delphi] view plaincopyvarF:file;i:integer;beginfori:=0to(FileListBox1.Items.Count-1)dobegintryifFileListBox1.Selected[i]thenbeginifnotFileExists(FileListBox1.Items.Strings[i])thenbeginMessgeDlg('File:'+FileListBox1 .Items.Strings[i]+'notfound',mtError,[mbok],0);continue;end;AssignFile(F,FileListBox1.Items.Strings[i]);Reset(F,l);ListBox1.Items. Add(IntToStr(FileSize(F)));CloseFile(F);end;finally{dosomethinghere}end;end;end;
(7)MultiSelect 屬性
如果此屬性設為True,表示允許同時選擇多項。用戶可以按住Ctrl 或Shift 鍵不放,用鼠標選擇項目,或直接用鼠標拖拽進行選擇。
(8)Sorted 屬性
此屬性用於設置列錶框中的項是否要按字母順序排序。對於排序的列錶框,通過調用Add()或Insert()所增加的項將自動移到合適的地方。程序示例代碼如下:
[delphi] view plaincopyprocedureTForm1.FormCreate(Sender:TObject);beginListBox1.Items.Add('Item2');ListBox1.Items.Add('Item3');ListBox1.Items.Add('Item1') ;ListBox1.Items.Add('Item4');end;
(9)Style 屬性
此屬性用於設置列錶框的風格。它設定瞭如下3 個用戶可選值。 • lbStandard:每一個項是一個字符串,每一項高度相同。 • lbOwnerDrawFixed:項不一定是字符串,也可以是圖像,項的高度是由ItemHeight 屬性指定。在顯示每一項之前都會觸發OnDrawItem 事件。 • lbOwnerDrawVariable:項不一定是字符串,也可以是圖像,項的高度可以不同。在顯示每一項之前都要觸發兩個事件,第1 個是OnMeasureItem 事件,讓程序指定每一項的高度,第2 個是OnDrawItem 事件,讓程序畫出每一項。
3. TListBox 組件的重要事件
·OnDrawItem 如果Style 屬性設為lbOwnerDrawFixed 或lbOwnerDrawVariable,且列錶框的項需要重畫時,觸發該事件·OnMeasureItem 如果Style 屬性設為lbOwnerDrawVariable,且列錶框的項需要重畫時,觸發該事件
4. TListBox 組件的重要方法
TListBox 組件在程序中常用的方法是Clear,它的功能是將列錶框內所有的選項刪除。
Listbox中的item如何根據內容的不同而顯示不同的顏色
1、ListBox1 的Style 屬性改為lbOwnerDrawVariable2、在ListBox的OnDrawItem事件裡,根據item的值,改變Canvas屬性即可。
例如:
[delphi] view plaincopyprocedureTForm1.ListBox1DrawItem(Control:TWinControl;Index:Integer;Rect:TRect;State:TOwnerDrawState);begin//字體用原來默認的顏色ifOdd(index)then//當items的index為奇數時的顏色beginlistbox1.Canvas.Brush.Color:=clwindow;ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]);endelse//當items的index為偶數時的顏色beginlistbox1.Canvas .Brush.Color:=clinactivecaptiontext;ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]);end;ifodSelectedinstatethen//當選定時的顏色beginlistbox1.Canvas.Brush.Color:= clhighlight;ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]);end;end;