Как я использую несколько столбцов в TCheckListBox?
-
19-09-2019 - |
Вопрос
Я использую элемент управления TcheckListBox и хотел бы использовать для этого второй столбец, но, кроме столбцов и свойств заголовка, я не смог найти ни одного источника на вставка содержимое из нескольких колонок...
Это может выглядеть как вопрос новичка, но в справке Delphi нет никакого контента по этому вопросу, а мои поиски (в Google и SO) принесли много мусора...
Мне просто нужен пример.
Решение
Это невозможно с помощью 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 элемента Измените размер поля по вертикали, и вы увидите, как элементы заполняют столбцы