Как я использую несколько столбцов на TCheckListBox?

Я использую элемент управления TcheckListBox и хотел бы использовать для этого второй столбец, но кроме свойств Columns и Header, я не смог найти никакого источника при вставке содержимого из нескольких столбцов...

Это может выглядеть как вопрос новичка, но помощь Delphi не имеет никакого содержания по этому поводу, и мои поиски (в Google и SO) принесли много мусора...

Мне просто нужен пример.

Источник

2 ответа

Решение

Это невозможно при использовании TCheckListBox,

Но вы могли бы использовать TListView,

Установить ViewStyle собственность на vsReport а также Checkboxes в True,


Чтобы создать столбцы и добавить элементы:

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;


Похоже:

http://img638.imageshack.us/img638/4681/clipboard01y.png

Источник

Я мог ошибаться, но я думал, что столбцы были для обертывания, а не для форматирования.

например,

Установите количество столбцов равным 2. Добавьте 3 или 4 элемента. Измените размер поля по вертикали, и вы увидите поток элементов для заполнения столбцов.

Источник
Другие вопросы по тегам