Почему срабатывает события при загрузке стиля как бороться ?

[VirusZ2D]

добавил checkbox итему  повесил обработчик на него 

item.StylesData['check.OnChange'] := TValue.From<TNotifyEvent>(DoCheckClick);

и как только я нажимаю на checkbox оно автомато начинает запускаться при загрузке и выгрузке стиля  как быть ?

[VirusZ2D]

решил проблему с помощью заглушки 

 

код из примера  CustomListbox 

var state : boolean = false;
//===================
Item.StylesData['visible.OnMouseDown'] := TValue.From<TMouseEvent>(myMouseDown);
//===================procedure TfrmCustomList.myMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
      state := true;
end;