如何访问TabItem中的框架并将其删除

Question

我有一个带有某些TabItem的TabControl。其中之一是动态填充框架。

var
  item: TListBoxItem;
  currentFrame: TFrame;
  frameIndex: integer;
begin
  if Sender is TListBoxItem then
    item:= TListBoxItem(Sender)
  else
    Exit;
  FindAndDeleteItemContext;
  frameIndex:= GetFrameIndexByText(item);
  {factory}
  FFramesFactory:= TFramesFactory.DefaultFactory;
  {new frame}
  currentFrame:= FFramesFactory.GetFrame(frameIndex);
  {add to layout}
  currentFrame.Parent:= TabItemContent;
  currentFrame.Align:= TAlignLayout.Client;
  //  TabItemContent.AddObject(currentFrame);
  TabItemContent.InsertComponent(currentFrame);
  {open tab}
  ActionToContentTabExecute(Sender); 
end;

在FFramesFactory中，帧是通过以下方式生成的：

TFrame_Map.Create(nil)

在此之前，我添加了一个要查找的新框架，并删除了旧框架而不将其释放到内存中。

procedure Txxx.FindAndDeleteItemContext;
var
  i: Integer;
begin
  for i:= 0 to Pred(TabItemContent.ComponentCount) do
  begin
    if TabItemContent.Components[i] is TFrame then
    begin
      TabItemContent.RemoveComponent(TabItemContent.Components[i]);
      Exit;
    end;
  end;
end;

但是它不起作用。我可以找到该框架，但是无法删除它，并且可以在Tabitem中看到两个框架。

如何删除找到的框架？

谢谢。

Answer 1

使用TabItemContent.RemoveComponent()删除组件时，将其从Components列表中删除，只需从拥有的组件列表中删除。 它不会从子级列表中删除，因此它在TabItemContent上仍然可见。

由于您希望将其保留在内存中，并且只从视觉上将其从TabItemContent中删除，因此需要将其父级设置为nil：

  for i:= 0 to Pred(TabItemContent.ComponentCount) do
  begin
    if TabItemContent.Components[i] is TFrame4 then
    begin
      TControl(TabItemContent.Components[i]).Parent := nil; // remove visually
      // TabItemContent.RemoveComponent(TabItemContent.Components[i]); // remove from ownership
      // TabItemContent.Components[i].DisposeOf;
      Exit;
    end;
  end;

如果您要最终释放它，则应致电DisposeOf。