Search the Community

Как правильно удалить текущую страницу, на которой лежит картинка? Процесс наполнения здесь При удалении - ошибка: Cannot set property 'ownerCmp' of null. Удаляю просто: carouselPhotos.ActivePage.Free; вижу здесь похожую ошибку но там 2018 год и старая версия ExtJS. Неужели до сих пор не исправили?

Программно заполняю карусель, чтобы сделать слайдер с картинками. Т.е. на форме лежит пустая карусель: Заполняю так: procedure TFormMobile1.LoadImagesPhotos; var i: Integer; sPath, s: string; LList: TStringDynArray; UnimImage: TUnimImage; UnimCarouselPage: TUnimCarouselPage; begin if carouselPhotos.PageCount > 0 then for i := pred(carouselPhotos.PageCount) downto 0 do carouselPhotos.Pages[i].Destroy; sPath := IncludeTrailingPathDelimiter(sPath) + Self.IDObj.ToString; LList := GetListDocs(sPath); if Length(LList) = 0 then exit; for s in LList do begin UnimCarouselPage := TUnimCarouselPage.Create(carouselPhotos); UnimCarouselPage.Parent := carouselPhotos; UnimImage := TUnimImage.Create(UnimCarouselPage); UnimImage.Parent := UnimCarouselPage; UnimImage.Align := alClient; UnimImage.Stretch := True; if TFile.Exists(s) then begin UnimImage.Picture.LoadFromFile(s); UnimImage.Hint := s; UnimCarouselPage.Hint := s; end; end; end; Картинки отображаются и листать можно. Потом мне нужно удалить выделенную картинку. И тут проблема: PageCount возвращает 0 (ноль). На кнопке есть код проверки количества страниц в карусели: if carouselPhotos.PageCount > 0 then ... удалить файл и страницу карусели