Wie verwende ich mehrere Spalten auf TCheckListBox?
-
19-09-2019 - |
Frage
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.
Lösung
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
Andere Tipps
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