как найти и удалить компонент на TabItem

[genakust]

добрый день,

у меня есть несколько TabItems in FMX- TabControl (как на вложенной картинке) один из которых заполняется динамически:

FindAndDeleteItemContext;
frameIndex:= GetFrameIndexByText(item);
{factory}
FFramesFactory:= TFramesFactory.DefaultFactory;
{Index-> Frame}
aktFrame:= FFramesFactory.GetFrame(frameIndex);
{add to layout}
aktFrame.Parent:= LyContent;
aktFrame.Align:= TAlignLayout.Client;
LyContent.AddObject(aktFrame);
{open tab}
ActionToContentTabExecute(Sender);

я пытаюсь найти фрейм и удалить его только из TabItem но не как Object обследующим способом:

procedure Txxx.FindAndDeleteItemContext;
var
  i: Integer;
begin
  for i:= 0 to Pred(LyContent.ComponentCount) do
  begin
    if LyContent.Controls.Items[i] is TFrame then
      LyContent.RemoveObject(i);
  end;
end

но почему- то LyContent.ComponentCount всегда равен 0.

Подскажите пожалуйста что неправильно?

Спасибо.

Изменено 6 мая, 2019 пользователем genakust
корректура

[dnekrasov]

Вы используете LyContent.AddObject а этот метод добавляет только в LyContent.Children. Для того, чтобы добавить в LyContent.Components надо создавать фрейм с AOwner = LyContent или использовать LyContent.InsertComponent. 

А вообще - не надо заморачиваться с Components. Управляйте отображением фреймов с помощью Parent, а за временем жизни пусть следит Ваш TFramesFactory

Изменено 6 мая, 2019 пользователем dnekrasov

[genakust]

Спасибо за ответ, я завтра попробую переделать.