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;