Как отоловить нажатие на чекбокс в итеме?

[gonzales]

Доброго времени суток. Собственно вопрос в теме поста. Пишу наследника от TListBoxItem, хочу выполнить процедуру при нажатии на чекбокс, но подходящих событий не наблюдаю. OnClick не приводит к нужному результату.

Есть еще StylesData['check'], который вроде как должен быть TCheckBox, но я не пойму как с ним работать.

 

[krapotkin]

я для себя решил вопрос очень просто - вставил свои компоненты в итем и весь функционал доступен

[gonzales]

я так пробовал сделать, но почему-то чекбокс вставленный в итем с выравниванием по левому краю перекрывает текст итема, я так и не разобрался, почему это происходит, но нашел процедуру у родного итема - ChangeCheck. Корявенько конечно получилось с точки зрения логики, часть функционала в компоненте, а часть нет, но пока забил

[krapotkin]

Потому что текст итема тоже задан компонентом и его нужно найти и сделать ему Margin
либо сделать то же самое - полностью забить на то что там уже есть, оставить их пустыми и сделать все компоненты свои, в коде
и по мне так это самое быстрое и самое управляемое решение ))

[gonzales]

ааа, вообще все свое))) текст в том числе)))

я понял, спасибо! так радикально я не додумался поступить

[OnePeople]

Если происходит множественный выбор тогда так:

procedure TForm9.ListBox1ChangeCheck(Sender: TObject);
var
 i: Integer;
begin
   label1.Text := '';
   for I := 0 to ListBox1.Items.Count - 1 do
      begin
        if ListBox1.ListItems[i].IsChecked then
          begin
            label1.Text := label1.Text + i.ToString + ' ';
          end;
      end;

end;