我如何使用上TCheckListBox多列？

Question

我使用的TcheckListBox控制，并希望在此使用第二个列，但除了列和头属性，我无法找到上的插入多列内容的任何源...

这可以看起来像一个noobie的问题，但德尔福的帮助并没有对此有任何内容，我的搜索（谷歌和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/ clipboard01y.png

Answer 2

我可能是错的，但我认为列是包裹而不是用于格式化的目的。

例如

设置的列数为2 加入3个或4个项目 垂直调整的框，你会看到的物品流向的栏