Как работать с новыми CheckBox в ListView в режиме vsReport

Нашёл этот код на форуме, он добавляет checkBox в любую колонку, а как потом работать с этими checkbox-ами (узнать, что он нажат или нет)procedure TForm1.Button1Click(Sender: TObject); const pbColumnIndex = 1; pbMax = 100; var li : TListItem; lv : TListView; pb : TCheckBox; pbRect : TRect; begin lv := ListView1; li := lv.Items.Add; li.Caption := 'Item ' + IntToStr(lv.Items.Count); pb := TCheckBox.Create(nil); pb.Parent := lv; li.Data := pb; pbRect := li.DisplayRect(drBounds); pbRect.Left := pbRect.Left + lv.Columns[-1 + pbColumnIndex].Width; pbRect.Right := pbRect.Left + lv.Columns[pbColumnIndex].Width; pb.BoundsRect := pbRect; end;
2 ответа

pb := TCheckBox.Create(nil);
кто тебе мешает завести внешнюю переменную и работать с ней как с обычным компонентом(одно НО для нескольких CheckBox'ов нужен массив)


У меня есть такая простая задача: нужно чтобы в ListView в первой колонке были только checkbox в режиме vsReport.Пока не подключаю ImageList в свойство SmallImages, то checkbox выводится по центру, как только подключил, то смещается немного вверх. Мне всё равно как, но мне нужно чтобы checkbox всегда был по центру. Заранее БЛАГОДАРЕН !!!!