我正在使用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