代码之家 › 专栏 › 技术社区 › Fabricio Araujo

如何在tchecklistbox上使用多个列?

tchecklistbox delphi

10

Fabricio Araujo · 技术社区 · 15 年前

我正在使用TcheckListBox控件,并希望在该控件上使用第二列,但除了列和标题属性外,在上找不到任何源插入多列内容…

这看起来像一个无意义的问题,但德尔福的帮助没有任何内容,我的搜索(在谷歌等)带来了很多垃圾…

我只需要一个例子。

2 回复 | 直到 15 年前

1

20

ulrichb 15 年前

不能使用 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

2

9

Mark Robinson 15 年前

我可能错了,但我认为这些列是为了包装而不是为了格式化。

如,

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