Как я использую несколько столбцов на TCheckListBox?
Я использую управление TcheckListBox и хотел бы использовать второй столбец на этом, но помимо свойств Columns и Header, я не мог найти источник при вставке многостолбцового содержания...
Это может быть похожим на noobie вопрос, но справка Delphi не имеет никакого содержания на этом, и мои поиски (на Google и ТАК) принесли много мусора...
Мне просто нужен пример.
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 элемента Измените размер поля по вертикали, и вы увидите, как элементы заполняют столбцы