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

[cybopob90]

Нашёл этот код на форуме, он добавляет 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;

[Пепел Феникса]

pb := TCheckBox.Create(nil);

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

[cybopob90]

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