麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁(yè) > 編程 > Delphi > 正文

Delphi列表框組件(TListBox)詳解

2019-11-11 06:55:26
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

列表框組件(TListBox)

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

1.TLlistBox 組件的典型用法

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

2.TListBox 組件的重要屬性

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

(1)Columns 屬性

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

(2)ExtendedSelect 屬性

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

(3)IntegralHeight 屬性

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

(4)ItemHeight 屬性

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

(5)ItemIndex 屬性

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

[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)都是通過(guò)Items 屬性訪問(wèn)的,Items 屬性是個(gè)典型的TStrings 對(duì)象,通過(guò)這個(gè)對(duì)象,可以在運(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,表示允許同時(shí)選擇多項(xiàng)。用戶可以按住Ctrl 或Shift 鍵不放,用鼠標(biāo)選擇項(xiàng)目,或直接用鼠標(biāo)拖拽進(jìn)行選擇。

(8)Sorted 屬性

此屬性用于設(shè)置列表框中的項(xiàng)是否要按字母順序排序。對(duì)于排序的列表框,通過(guò)調(diào)用Add()或Insert()所增加的項(xiàng)將自動(dò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 個(gè)用戶可選值。? lbStandard:每一個(gè)項(xiàng)是一個(gè)字符串,每一項(xiàng)高度相同。? lbOwnerDrawFixed:項(xiàng)不一定是字符串,也可以是圖像,項(xiàng)的高度是由ItemHeight 屬性指定。在顯示每一項(xiàng)之前都會(huì)觸發(fā)OnDrawItem 事件。? lbOwnerDrawVariable:項(xiàng)不一定是字符串,也可以是圖像,項(xiàng)的高度可以不同。在顯示每一項(xiàng)之前都要觸發(fā)兩個(gè)事件,第1 個(gè)是OnMeasureItem 事件,讓程序指定每一項(xiàng)的高度,第2 個(gè)是OnDrawItem 事件,讓程序畫出每一項(xiàng)。

3.TListBox 組件的重要事件

·OnDrawItem 如果Style 屬性設(shè)為lbOwnerDrawFixed 或lbOwnerDrawVariable,且列表框的項(xiàng)需要重畫時(shí),觸發(fā)該事件·OnMeasureItem 如果Style 屬性設(shè)為lbOwnerDrawVariable,且列表框的項(xiàng)需要重畫時(shí),觸發(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       //字體用原來(lái)默認(rèn)的顏色       if Odd(index) then     //當(dāng)items的index為奇數(shù)時(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ù)時(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)選定時(shí)的顏色          begin            listbox1.Canvas.Brush.Color:=clhighlight;            ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]);          end;  end;  
發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 久久av一区二区 | 神秘电影91 | 国产美女爽到喷白浆的 | 免费一级在线观看 | 91久久九色 | 国产亚洲自拍一区 | 久久久国产精品网站 | 成人在线网站 | 一级做受毛片免费大片 | 黄色毛片免费看 | 国产精品免费久久久久 | 久久午夜神器 | 91久久国产露脸精品免费 | 国产一级二级毛片 | 精品国产一区二区三区久久久蜜月 | 国产成人在线一区二区 | 九九热国产在线 | av资源在线天堂 | 久久国产一二三 | 91av在线免费播放 | 天天操天天骑 | 亚洲精久 | 性欧美日本 | 亚洲免费在线视频 | 日本xxxx色视频在线观看免费, | 久久久免费观看完整版 | 国产色视频一区 | 国产美女精品视频 | 欧美日韩1区2区3区 黄片毛片一级 | 依依成人综合 | 久久影院一区二区三区 | 麻豆一二区 | 露脸各种姿势啪啪的清纯美女 | 国内精品视频饥渴少妇在线播放 | 亚洲欧美日韩一区二区三区在线观看 | 黄色小视频在线免费看 | 91在线免费观看 | 欧美一级黄 | 在线播放91 | 久久国产精品二国产精品中国洋人 | 亚洲一区在线免费视频 |