Delphi列表框組件(TListBox)詳解

2019-11-14 08:55:12

字體：大中小

供稿：網(wǎng)友

列表框組件（TListBox）

此組件為一個標(biāo)準(zhǔn)的Windows 列表框組件，它用于顯示一系列的列表，用戶可以選擇、加入、刪除或修改其中的項(xiàng)目。

1．TLlistBox 組件的典型用法

在Windows 應(yīng)用程序中，經(jīng)常要用到列表框。列表框能夠在一個可翻滾的窗口中列出多個項(xiàng)讓用戶選擇。例如在Delphi 的IDE 中，當(dāng)使用“View”菜單上的“Component List”命令時，Delphi 將列出VCL 中的所有組件。程序中主要利用Items 屬性進(jìn)行各種項(xiàng)目的控制，例如用Items.Strings[]獲取某個選項(xiàng)的內(nèi)容，Items.Add()和Items.Delete()增加或刪除選項(xiàng)條目。通過ItemIndex 屬性指定或者獲取當(dāng)前選項(xiàng)。

2．TListBox 組件的重要屬性

·Columns 列表框的欄數(shù)·ExtendedSelect 此屬性用于設(shè)置是否允許使用Shift 鍵和Ctrl 鍵同時選擇多個項(xiàng)·IntegralHeight 列表框的高度總是列表框中項(xiàng)的高度的整數(shù)倍·ItemHeight 此屬性用于設(shè)置列表框中每一項(xiàng)的高度·ItemIndex 此屬性用于設(shè)置返回列表框中被選擇的項(xiàng)的序號·Items 列表框中所有的項(xiàng)都是通過Items 屬性訪問的·MultiSelect 允許同時選擇多項(xiàng)·SelCount 返回當(dāng)前選擇的項(xiàng)的個數(shù)·Selected 此屬性用于判斷指定的項(xiàng)是否被選擇·Sorted 此屬性用于設(shè)置列表框中的項(xiàng)是否要按字母順序排序·Style 此屬性用于設(shè)置列表框的風(fēng)格下面介紹程序中TListBox 組件常用的屬性。

（1）Columns 屬性

此屬性默認(rèn)值為0，列表框以單欄顯示，如果內(nèi)容太多，列表框?qū)⒆詣蛹由弦粋€垂直方向的滾動條。如果此屬性設(shè)為大于0 的值，列表框?qū)⑹紫忍顫M一欄。如果在一欄中不能完全顯示，就顯示在第2 欄、第3 欄，依次類推，但屏幕上最多只顯示Columns 屬性設(shè)置的欄數(shù)。如果此屬性設(shè)為2，屏幕上只顯示兩欄，如果實(shí)際內(nèi)容不止兩欄，將自動加上一個水平方向的滾動條。

（2）ExtendedSelect 屬性

此屬性用于設(shè)置是否允許使用Shift 鍵和Ctrl 鍵同時選擇多個項(xiàng)，前提是MultiSelect 屬性必須設(shè)為True，如果ExtendedSelect 屬性設(shè)為True，當(dāng)用戶按下并保持住Shift 鍵時就可以選擇多個連續(xù)的項(xiàng)，按下并保持住Ctrl 鍵就可以選擇多個項(xiàng)（不一定連續(xù)）。

（3）IntegralHeight 屬性

如果此屬性設(shè)為True，且Style 屬性設(shè)為IsOwnerDrawFixed 時，列表框的高度將自動調(diào)整到列表框中項(xiàng)的高度的整數(shù)倍。如果此屬性設(shè)為False，列表框的最后一項(xiàng)可能不能完整地顯示，因?yàn)榱斜砜虻母叨炔灰欢ㄕ檬荌temHeight 屬性的整數(shù)倍。

（4）ItemHeight 屬性

當(dāng)Style 屬性設(shè)為IsOwnerFixed（用戶自定義）時，此屬性用于設(shè)置列表框中每一項(xiàng)的高度。如果IntegralHeight 屬性設(shè)為True，整個列表框的高度將隨著ItemHeight 屬性的值自動調(diào)整。如果Style屬性設(shè)為IsStandard 或IsOwnerDrawVariable，ItemHeight 屬性將無意義。

（5）ItemIndex 屬性

此屬性用于設(shè)置返回列表框中被選擇的項(xiàng)的序號。如果MultiSelect 屬性設(shè)為True，并且用戶選擇了多個項(xiàng)，此屬性返回其中有輸入焦點(diǎn)的項(xiàng)的序號。程序示例代碼如下：

[delphi] view plain copyPRocedure TForm1.FormCreate(Sender: TObject); var I: Integer; begin ListBox1.MultiSelect: = False; Button.Caption = ’Move to Top’; for I: = 1 to 10 do ListBox1.Items.Add(’Item’ + IntToStr(I)); end; procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Move(ListBox1.ItemIndex, 0); end;

（6）Items 屬性

列表框中所有的項(xiàng)都是通過Items 屬性訪問的，Items 屬性是個典型的TStrings 對象，通過這個對象，可以在運(yùn)行期操縱列表框中的項(xiàng)，程序示例代碼如下：

[delphi] view plain copyvar F: file; i: integer; begin for i := 0 to (FileListBox1.Items.Count - 1) do begin try if FileListBox1.Selected[i] then begin if not FileExists(FileListBox1.Items.Strings[i]) then begin MessgeDlg(’File: ’ + FileListBox1.Items.Strings[i] + ’not found’, mtError, [mbok], 0); continue; end; AssignFile(F, FileListBox1.Items.Strings[i]); Reset(F, l); ListBox1.Items.Add(IntToStr(FileSize(F))); CloseFile(F); end; finally {do something here} end; end; end;

（7）MultiSelect 屬性

如果此屬性設(shè)為True，表示允許同時選擇多項(xiàng)。用戶可以按住Ctrl 或Shift 鍵不放，用鼠標(biāo)選擇項(xiàng)目，或直接用鼠標(biāo)拖拽進(jìn)行選擇。

（8）Sorted 屬性

此屬性用于設(shè)置列表框中的項(xiàng)是否要按字母順序排序。對于排序的列表框，通過調(diào)用Add()或Insert()所增加的項(xiàng)將自動移到合適的地方。程序示例代碼如下：[delphi] view plain copyprocedure TForm1.FormCreate(Sender: TObject); begin ListBox1.Items.Add(’Item2’); ListBox1.Items.Add(’Item3’); ListBox1.Items.Add(’Item1’); ListBox1.Items.Add(’Item4’); end;

（9）Style 屬性

此屬性用于設(shè)置列表框的風(fēng)格。它設(shè)定了如下3 個用戶可選值。? lbStandard：每一個項(xiàng)是一個字符串，每一項(xiàng)高度相同。? lbOwnerDrawFixed：項(xiàng)不一定是字符串，也可以是圖像，項(xiàng)的高度是由ItemHeight 屬性指定。在顯示每一項(xiàng)之前都會觸發(fā)OnDrawItem 事件。? lbOwnerDrawVariable：項(xiàng)不一定是字符串，也可以是圖像，項(xiàng)的高度可以不同。在顯示每一項(xiàng)之前都要觸發(fā)兩個事件，第1 個是OnMeasureItem 事件，讓程序指定每一項(xiàng)的高度，第2 個是OnDrawItem 事件，讓程序畫出每一項(xiàng)。

3．TListBox 組件的重要事件

·OnDrawItem 如果Style 屬性設(shè)為lbOwnerDrawFixed 或lbOwnerDrawVariable，且列表框的項(xiàng)需要重畫時，觸發(fā)該事件·OnMeasureItem 如果Style 屬性設(shè)為lbOwnerDrawVariable，且列表框的項(xiàng)需要重畫時，觸發(fā)該事件

4．TListBox 組件的重要方法

TListBox 組件在程序中常用的方法是Clear，它的功能是將列表框內(nèi)所有的選項(xiàng)刪除。

Listbox中的item如何根據(jù)內(nèi)容的不同而顯示不同的顏色

1、ListBox1 的 Style 屬性改為 lbOwnerDrawVariable2、在ListBox的OnDrawItem事件裡，根據(jù)item的值，改變Canvas屬性即可。

例如：

[delphi] view plain copyprocedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin //字體用原來默認(rèn)的顏色 if Odd(index) then //當(dāng)items的index為奇數(shù)時的顏色 begin listbox1.Canvas.Brush.Color:=clwindow; ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]); end else //當(dāng)items的index為偶數(shù)時的顏色 begin listbox1.Canvas.Brush.Color:=clinactivecaptiontext; ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]); end; if odSelected in state then //當(dāng)選定時的顏色 begin listbox1.Canvas.Brush.Color:=clhighlight; ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]); end; end;

上一篇：Delphi列表框組件(TListBox)詳解

下一篇：Delphi通過MSHTML實(shí)現(xiàn)一個HTML解析類