Come io uso più colonne su TCheckListBox?

Question

Sto utilizzando il controllo TcheckListBox e vorrei utilizzare una seconda colonna su questo, ma oltre le colonne e le proprietà di intestazione, non ho trovato alcuna fonte su inserimento il contenuto più colonne ...

Può sembrare una domanda noobie, ma l'aiuto di Delphi non ha alcun contenuto su questo, e le mie ricerche su Google (e SO) portato molta spazzatura ...

Ho solo bisogno di un esempio.

Answer 1

Questo non è possibile con un TCheckListBox.

Ma si potrebbe usare un TListView .

Impostare la proprietà ViewStyle per vsReport e Checkboxes a True.

Per creare le colonne e aggiungere gli elementi:

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;

Sembra che:

visualizzazione elenco con caselle di controllo http://img638.imageshack.us/img638/4681/ clipboard01y.png

Answer 2

Potrei sbagliarmi, ma ho pensato che le colonne erano per avvolgere piuttosto che per scopi di formattazione.

per esempio,

Imposta il numero di colonne da 2 Aggiungere 3 o 4 elementi Ridimensionare la casella in verticale e vedrete gli elementi scorrono per riempire le colonne