Go homepage(回首页) Upload pictures (上传图片) Write articles (发文字帖)
The author:(作者)aaapublished in(发表于) 2014/7/19 0:09:55 delphi列表框组件(TListBox)使用实例
delphi列表框组件(TListBox)使用实例|方法
列表组件该组件能够让编程人员集中地管理某类信息,如事件和图像等。Delphi 7 中包含多种列表组件,如列表框组件、动作列表组件、图像列表组件、树型视图组件和列表视图组件等。下面将分别对相应组件进行讲述,并利用示例将各组件的实际用法介绍给读者。列表框组件(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,并且用户选择了多个项,此属性返回其中有输入焦点的项的序号。程序示例代码如下:procedure TForm1.FormCreate(Sender: TObject);varI:Integer;beginListBox1.MultiSelect:=False;Button.Caption=’Move to Top’;for I:=1 to 10 doListBox1.Items.Add(’Item’+IntToStr(I));end;procedure TForm1.Button1Click(Sender: TObject);beginListBox1.Items.Move(ListBox1.ItemIndex,0);end;
赞