Wie verwende ich mehrere Spalten auf TCheckListBox?

Question

Ich bin mit dem TCheckListBox Kontrolle und möchte eine zweite Säule auf diese verwenden, aber neben den Spalten und Header-Eigenschaften, ich konnte keine Quelle auf Einfügen die mehrspaltigen Inhalte finden ...

Es kann wie ein noobie Frage aussehen, aber Delphi Hilfe hat keine Inhalte auf dieser, und meine Suche (auf Google und SO) viel Müll gebracht ...

Ich brauche nur ein Beispiel.

Answer 1

Dies ist nicht möglich, eine TCheckListBox verwenden.

Aber man konnte verwenden eine TListView .

Stellen Sie die ViewStyle Eigenschaft auf vsReport und Checkboxes zu True.

Um die Spalten zu erstellen und die Elemente hinzufügen:

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;

Sieht aus wie:

Listenansicht mit Kontrollkästchen http://img638.imageshack.us/img638/4681/ clipboard01y.png

Answer 2

Ich könnte falsch sein, aber ich dachte, dass die Spalten für die Verpackung waren und nicht für Zwecke der Formatierung.

Beispiel

Stellen Sie die Anzahl der Spalten 2 In 3 oder 4 Artikel Ändern der Größe der Box vertikal und Sie werden sehen, die Elemente fließen, um die Spalten zu füllen