Tôi sử dụng nhiều cột trên TCheckListBox như thế nào?

Question

Tôi đang sử dụng sự kiểm soát TcheckListBox và muốn sử dụng một cột thứ hai về vấn đề này, nhưng bên cạnh Cột và thuộc tính Header, tôi không thể tìm thấy bất kỳ nguồn trên chèn nội dung multicolumn ...

Nó có thể trông giống như một câu hỏi noobie, nhưng sự giúp đỡ của Delphi không có bất kỳ nội dung nào về điều này, và các tìm kiếm của tôi (trên Google và SO) đã mang lại nhiều ...

Tôi chỉ cần một ví dụ.

Answer 1

Điều này không thể sử dụng số TCheckListBox.

Nhưng bạn có thể sử dụng TListView.

Đặt thuộc tính ViewStyle thành vsReport và Checkboxes đến True.

Để tạo các cột và thêm các mục:

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; 

Hình như:

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

Answer 2

Tôi có thể sai nhưng tôi nghĩ rằng các cột đã cho gói hơn cho mục đích định dạng.

ví dụ:

Đặt số cột đến 2 Thêm 3 hoặc 4 mục Thay đổi kích thước hộp theo chiều dọc và bạn sẽ thấy các mục dòng chảy để điền vào các cột