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

发布时间：2020-12-15 04:30:58 所属栏目：大数据来源：网络整理

导读：我正在使用TcheckListBox控件,并希望在此上使用第二列,但除了Columns和Header属性,我找不到任何源插入多列内容… 它可能看起来像一个noobie问题,但德尔福的帮助没有任何内容,我的搜索(在谷歌和SO)带来了很多垃圾… 我只需要一个例子. 解决方法这不可能使用T

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

它可能看起来像一个noobie问题,但德尔福的帮助没有任何内容,我的搜索(在谷歌和SO)带来了很多垃圾…

我只需要一个例子.

解决方法

这不可能使用TCheckListBox.

但是你可以使用TListView.

将ViewStyle属性设置为vsReport和复选框为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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!