Comment puis-je utiliser plusieurs colonnes sur TCheckListBox?

Question

J'utilise le contrôle TCheckListBox et souhaite utiliser une deuxième colonne, mais en plus des colonnes et des propriétés d'en-tête, je ne pouvais trouver aucune source sur insérer le contenu ... multicolonnes

Il peut ressembler à une question noobie, mais l'aide de Delphi ne pas contenu à ce sujet, et mes recherches (sur Google et SO) apporté beaucoup de déchets ...

J'ai besoin juste un exemple.

Answer 1

Il est impossible avec un TCheckListBox.

Mais vous pouvez utiliser un TListView .

Définissez la propriété ViewStyle à vsReport et Checkboxes à True.

Pour créer les colonnes et ajoutez les éléments:

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;

On dirait:

de liste avec des cases à cocher http://img638.imageshack.us/img638/4681/ clipboard01y.png

Answer 2

Je peux me tromper, mais je pensais que les colonnes étaient pour l'emballage plutôt que pour des fins de mise.

par exemple,

Définissez le nombre de colonnes à 2 Ajouter 3 ou 4 articles Redimensionnez la zone verticalement et vous verrez les éléments de flux pour remplir les colonnes