ฉันจะใช้หลายคอลัมน์ใน TCheckListBox ได้อย่างไร

ไม่สามารถใช้ 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;

ดูเหมือนว่า:

http://img638.imageshack.us/img638/4681/clipboard01y.png

ฉันอาจผิด แต่ฉันคิดว่าคอลัมน์มีไว้เพื่อการตัดมากกว่าเพื่อการจัดรูปแบบ

eg,

กำหนดจำนวนคอลัมน์เป็น 2 เพิ่ม 3 หรือ 4 รายการ ปรับขนาดกล่องในแนวตั้ง แล้วคุณจะเห็นรายการไหลเพื่อเติมคอลัมน์