我正在使用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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。