delphi：如何将TCustomFrame和记录存储在一个列表中

type 
  TFrameInfo = record
    Frame: TCustomFrame;
    Foo: string;
    Bar: Integer;
  end;

在TList< TFrameInfo>中保留它.

我注意到你使用的是TObjectList< T>而不是TList< T>.这样做的唯一好处是,如果您将OwnsObjects设置为True.但这似乎不太可能,因为我怀疑列表是否真正负责GUI对象的生命周期.作为未来的注释,如果您发现自己使用TObjectList< T>如果将OwnsObjects设置为False,那么您也可以切换到TList< T>.

现在,如果您确实需要列表来控制生命周期,那么您最好使用类而不是TFrameInfo的记录.

type 
  TFrameInfo = class
  private
    FFrame: TCustomFrame;
    FFoo: string;
    FBar: Integer;
  public
    constructor Create(AFrame: TCustomFrame; AFoo: string; ABar: Integer);
    destructor Destroy; override;
    property Frame: TCustomFrame read FFrame;
    // etc.
  end;

  constructor TFrameInfo.Create(AFrame: TCustomFrame; AFoo: string; ABar: Integer);
  begin
    inherited Create;
    FFrame := AFrame;
    // etc.
  end;

  destructor TFrameInfo.Destroy; 
  begin
    FFrame.Free;
    inherited;
  end;

然后将其保存在TObjectList< TFrameInfo>中.将OwnsObjects设置为True.