delphi - 我如何在 TCheckListBox 上使用多列？

我正在使用 TcheckListBox 控件并想在此使用第二列，但除了 Columns 和 Header 属性之外，我在 上找不到任何源，插入 多列内容...

它看起来像一个菜鸟问题，但 Delphi 的帮助没有任何内容，我的搜索(在 Google 和 SO 上)带来了很多垃圾......

我只需要一个例子。

最佳答案

使用 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;

看起来像:

list view with checkboxes http://img638.imageshack.us/img638/4681/clipboard01y.png

关于delphi - 我如何在 TCheckListBox 上使用多列？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/2238376/