Problem mit Vererbung

[xZise]

Zitat von shmia:

Zitat von xZise:

Nun habe ich auch eine Liste:

Delphi-Quellcode:

TTabs = class(TObject)
private
  FTabs : array of TTab;
end;

Das ist keine Liste. Nimm doch TObjectList aus Unit contnrs!

OOPs ^^ Nein Es ist ja gerade eine ObjectListe

Zitat von Progman:

außerdem hats du in TTab bereits FTabs deklariert, vielleicht kommt da was durcheinander?

Genau dieses FTabs will ich haben
Damit der Tab nachher "weis" in welcher Liste der gehört, um selber für die Tabliste Tabs zu erzeugen.

Hier ist nochmal TTabs ^^

Delphi-Quellcode:

TTabs = class(TObject)
private
  FTabs : TObjectList;
  FIcons : TIconList; // wird nicht verwendet
  FFileToolBar: TToolBar;
  FDirectoryToolBar: TToolBar;

  function GetTab(idx: Integer): TTab;
  procedure SetTab(idx: Integer; const Value: TTab);
public
  property Tab[idx : Integer] : TTab read GetTab write SetTab;
  property FileToolBar : TToolBar read FFileToolBar write FFileToolBar;
  property DirectoryToolBar : TToolBar read FDirectoryToolBar write FDirectoryToolBar;

  procedure Add(const ATab : TTab);
  procedure Delete(const AIndex : Integer);

  constructor Create;
  destructor Destroy; override;
end;