¿Cómo utilizo varias columnas en TCheckListBox?

Question

Estoy usando el control TcheckListBox y me gustaría usar una segunda columna en esto, pero además de las columnas y las propiedades de cabecera, no pude encontrar ninguna fuente de inserción el contenido de varias columnas ...

Puede parecer una pregunta noobie, pero la ayuda de Delphi no tiene ningún contenido en esto, y mis búsquedas en Google (y SO) traído mucha basura ...

Sólo necesito un ejemplo.

Answer 1

Esto no es posible utilizando un TCheckListBox.

Sin embargo, se puede utilizar un TListView .

Establecer la propiedad ViewStyle a vsReport y Checkboxes a True.

Para crear las columnas y agregar los elementos:

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;

Parece que:

vista de lista con casillas de verificación http://img638.imageshack.us/img638/4681/ clipboard01y.png

Answer 2

Podría estar equivocado, pero pensé que las columnas eran para envolver y no para fines de formato.

por ejemplo,

Establecer el número de columnas a 2 Añadir 3 o 4 elementos Cambiar el tamaño de la caja en posición vertical y verá los elementos fluyen para rellenar las columnas