Como eu uso várias colunas sobre TCheckListBox?

Question

Eu estou usando o controle TcheckListBox e gostaria de usar uma segunda coluna sobre isso, mas além das colunas e propriedades de cabeçalho, eu não poderia encontrar qualquer fonte em Inserir o conteúdo de várias colunas ...

Pode parecer uma pergunta noobie, mas a ajuda do Delphi não tem qualquer conteúdo sobre isso, e minhas pesquisas (no Google e SO) trouxe muito lixo ...

Eu só preciso de um exemplo.

Answer 1

Isto não é possível utilizar um TCheckListBox.

Mas você poderia usar um TListView .

Defina a propriedade ViewStyle para vsReport e Checkboxes para True.

Para criar as colunas e adicionar os itens:

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;

Se parece com:

vista de lista com caixas http://img638.imageshack.us/img638/4681/ clipboard01y.png

Answer 2

Eu posso estar errado, mas eu pensei que as colunas foram para o acondicionamento e não para fins de formatação.

por exemplo,

Defina o número de colunas para 2 Adicione 3 ou 4 itens Redimensionar a caixa verticalmente e você verá os itens fluir para preencher as colunas