Come utilizzare 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 sui inserendo i contenuti più colonne ...

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

Ho solo bisogno di un esempio.

Answer 1

Questo non è possibile utilizzando un TCheckListBox.

Ma è possibile utilizzare uno TListView.

Impostare la proprietà ViewStyle su vsReport e Checkboxes su 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; 

assomiglia:

list view with checkboxes http://img638.imageshack.us/img638/4681/clipboard01y.png

Answer 2

potrei sbagliarmi, ma ho pensato che le colonne erano per il confezionamento, piuttosto che per scopi di formattazione.

ad esempio,

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