Привет дружище!
1. Нужен ли тебе для этой задачи ListView?
2. Замени ListBox на CheckListBox и все проблемы.
Не нужно все лопатить заново! Просто замени предка.
Выдели ListBox на форме, далее Ctrl+X - Вырезали.
Перейди в модуль (*.PAS) установи курсор ниже end. скопируй вырезанный объект Ctrl+C
читать дальше »
end.
object ListBox1: TListBox
Left = 144
Top = 104
Width = 121
Height = 97
ItemHeight = 13
TabOrder = 0
end
измени object ListBox1:
TListBox на object ListBox1:
TCheckListBox, вырежи измененный блок Ctrl+X, снова открой форму, клик на форме и Ctrl+V. Все, далее копируй и убирай элементы в цикле с нужным условием.
