TScrollBox -> TCustomListBox -> TListBox; 其元素项是 TListBoxItem 类型.

TListBox 的功能在 TCustomListBox 里就完成了.

值得注意的变化是:
1、复选框(相关属性: ShowCheckboxes、TListBoxItem.IsChecked)
2、交替背景(通过继承还可以调整交替的背景色)
3、TListBoxItem 可调整大小、容纳其它对象.

---

{ TCustomListBox }
publicconstructor 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 }
publishedproperty StyleLookup;              //property AllowDrag;                //是否允许拖放property CanFocus;                 //property DisableFocusEffect;       //property TabOrder;                 //property AlternatingRowBackground; //是否使用交替背景property Columns;                  //列数; 默认 1property HideSelectionUnfocused;   //在失去焦点时是否隐藏选择property Items;                    //property ItemIndex;                //property ItemWidth;                //项宽property ItemHeight;               //项高property ListStyle;                //列表样式; TListStyle = (lsVertical, lsHorizontal);property MultiSelect;              //是否允许多选; 为 True 时, 配合 Ctrl 键多选property Sorted;                   //property ShowCheckboxes;           //是否显示复选框; 默认 Falseproperty BindingSource;            //绑定源property OnChange;                 //有变化时property OnChangeCheck;            //调整复选框时property OnCompare;                //排序比较时property OnDragChange;             //拖放项时
end;{ TListBoxItem }
publicconstructor Create(...); override; //property Data: TObject ...;        //property Index: Integer ...;       //
publishedproperty IsChecked: Boolean ...;   //复选值property IsSelected: Boolean ...;  //property AutoTranslate ...;        //property Font;                     //property StyleLookup;              //property Text;                     //property TextAlign ...;            //property WordWrap;                 //
end;

---

测试:

---

procedure TForm1.FormCreate(Sender: TObject);
vari: Integer;
beginListBox1.Align := TAlignLayout.alLeft;ListBox1.ShowCheckboxes := True;ListBox1.AlternatingRowBackground := True;for i := 0 to 9 dobeginListBox1.Items.Add('Itme' + IntToStr(i));ListBox1.ListItems[i].IsChecked := Odd(i);end;
end;

---