客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
TScrollBox -> TCustomListBox -> TListBox; 其元素项是 TListBoxItem 类型. TListBox 的功能在 TCustomListBox 里就完成了. 值得注意的变化是: 1、复选框(相关属性: ShowCheckboxes、TListBoxItem.IsChecked) 2、交替背景(通过继承还可以调整交替的背景色) 3、TListBoxItem 可调整大小、容纳其它对象. { TCustomListBox } public constructor Create(...); override; // destructor Destroy; override; // procedure Assign(...); override; // procedure Clear; virtual; //清空 function DragChange(...): Boolean; dynamic; //调用 OnDragChange 事件 procedure SelectAll; //全选 procedure ClearSelection; //取消选择 procedure SelectRange(...); //选择指定范围 function ItemByPoint(...): TListBoxItem; //获取指定位置的项 function ItemByIndex(...): TListBoxItem; //获取指定序号的项 procedure Exchange(...); //交换项 procedure AddObject(...); override; //添加项 procedure RemoveObject(...); override; //删除项 procedure Sort(...); override; //排序 property Count: Integer ...; //项总数 property Selected: TListBoxItem ...; //当前选择的项 property Items: TStrings ...; //元素文本的集合 property ListItems[Index: Integer]: TListBoxItem ...; //根据索引获取项 property ItemIndex: Integer ...; //索引 end; { TListBox } published property StyleLookup; // property AllowDrag; //是否允许拖放 property CanFocus; // property DisableFocusEffect; // property TabOrder; // property AlternatingRowBackground; //是否使用交替背景 property Columns; //列数; 默认 1 property HideSelectionUnfocused; //在失去焦点时是否隐藏选择 property Items; // property ItemIndex; // property ItemWidth; //项宽 property ItemHeight; //项高 property ListStyle; //列表样式; TListStyle = (lsVertical, lsHorizontal); property MultiSelect; //是否允许多选; 为 True 时, 配合 Ctrl 键多选 property Sorted; // property ShowCheckboxes; //是否显示复选框; 默认 False property BindingSource; //绑定源 property OnChange; //有变化时 property OnChangeCheck; //调整复选框时 property OnCompare; //排序比较时 property OnDragChange; //拖放项时 end; { TListBoxItem } public constructor Create(...); override; // property Data: TObject ...; // property Index: Integer ...; // published property IsChecked: Boolean ...; //复选值 property IsSelected: Boolean ...; // property AutoTranslate ...; // property Font; // property StyleLookup; // property Text; // property TextAlign ...; // property WordWrap; // end; 测试: procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin ListBox1.Align := TAlignLayout.alLeft; ListBox1.ShowCheckboxes := True; ListBox1.AlternatingRowBackground := True; for i := 0 to 9 do begin ListBox1.Items.Add('Itme' + IntToStr(i)); ListBox1.ListItems[i].IsChecked := Odd(i); end; end; TScrollBox -> TCustomListBox -> TListBox; 其元素项是 TListBoxItem 类型. TListBox 的功能在 TCustomListBox 里就完成了. 值得注意的变化是: 1、复选框(相关属性: ShowCheckboxes、TListBoxItem.IsChecked) 2、交替背景(通过继承还可以调整交替的背景色) 3、TListBoxItem 可调整大小、容纳其它对象. { TCustomListBox } public constructor Create(...); override; // destructor Destroy; override; // procedure Assign(...); override; // procedure Clear; virtual; //清空 function DragChange(...): Boolean; dynamic; //调用 OnDragChange 事件 procedure SelectAll; //全选 procedure ClearSelection; //取消选择 procedure SelectRange(...); //选择指定范围 function ItemByPoint(...): TListBoxItem; //获取指定位置的项 function ItemByIndex(...): TListBoxItem; //获取指定序号的项 procedure Exchange(...); //交换项 procedure AddObject(...); override; //添加项 procedure RemoveObject(...); override; //删除项 procedure Sort(...); override; //排序 property Count: Integer ...; //项总数 property Selected: TListBoxItem ...; //当前选择的项 property Items: TStrings ...; //元素文本的集合 property ListItems[Index: Integer]: TListBoxItem ...; //根据索引获取项 property ItemIndex: Integer ...; //索引 end; { TListBox } published property StyleLookup; // property AllowDrag; //是否允许拖放 property CanFocus; // property DisableFocusEffect; // property TabOrder; // property AlternatingRowBackground; //是否使用交替背景 property Columns; //列数; 默认 1 property HideSelectionUnfocused; //在失去焦点时是否隐藏选择 property Items; // property ItemIndex; // property ItemWidth; //项宽 property ItemHeight; //项高 property ListStyle; //列表样式; TListStyle = (lsVertical, lsHorizontal); property MultiSelect; //是否允许多选; 为 True 时, 配合 Ctrl 键多选 property Sorted; // property ShowCheckboxes; //是否显示复选框; 默认 False property BindingSource; //绑定源 property OnChange; //有变化时 property OnChangeCheck; //调整复选框时 property OnCompare; //排序比较时 property OnDragChange; //拖放项时 end; { TListBoxItem } public constructor Create(...); override; // property Data: TObject ...; // property Index: Integer ...; // published property IsChecked: Boolean ...; //复选值 property IsSelected: Boolean ...; // property AutoTranslate ...; // property Font; // property StyleLookup; // property Text; // property TextAlign ...; // property WordWrap; // end; 测试: procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin ListBox1.Align := TAlignLayout.alLeft; ListBox1.ShowCheckboxes := True; ListBox1.AlternatingRowBackground := True; for i := 0 to 9 do begin ListBox1.Items.Add('Itme' + IntToStr(i)); ListBox1.ListItems[i].IsChecked := Odd(i); end; end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论