如何在 TCheckListBox 上使用多列？

Question

我正在使用 TcheckListBox 控件，并且想在此使用第二列，但除了列和标题属性之外，我找不到任何关于插入多列内容的源...

它可以看起来就像一个菜鸟问题，但是Delphi的帮助没有任何关于此的内容，并且我的搜索（在Google和SO上）带来了很多垃圾......

我只需要一个例子。

Answer 1

使用TCheckListBox 不可能做到这一点。

但是您可以使用 TListView。

将 ViewStyle 属性设置为 vsReport，并将 Checkboxes 设置为 True。

要创建列并添加项目：

procedure TFormMain.Button1Click(Sender: TObject);
var
  Item1, Item2: TListItem;
begin
  ListView1.Columns.Add.Caption := 'aa';
  ListView1.Columns.Add.Caption := 'bb';

  Item1 := ListView1.Items.Add;
  Item1.Caption := 'item1';
  Item1.SubItems.Add('subitem1');

  Item2 := ListView1.Items.Add;
  Item2.Caption := 'item2';
  Item2.SubItems.Add('subitem2');
  Item2.Checked := True;
end;

看起来像：

带有复选框的列表视图 http://img638.imageshack.us/img638/4681/剪贴板01y.png

Answer 2

我可能是错的，但我认为这些列是用于换行而不是用于格式化目的。

例如，

将列数设置为 2
添加 3 或 4 项
垂直调整框的大小，您将看到项目流动以填充列