mh.. das hat leider bei mir keine Glühbirne aufleuchten lassen
Was genau machen die einzelnen Zeilen? Die ändern doch eigentlich nichts außer, dass es jetzt nicht mehr jedes beliebige Objekt sein kann, welches in der Liste gespeichert werden kann, sondern nur noch objekte des typs Tseite.
Gibt mir das die Möglichkeit so auf die Objekte der Liste zuzugreifen wie ich das vorhatte?
project.pages.Items[index].save....
Das übernehmen deines Beispiels gibt auf jeden Fall erstmal nur Fehler. Ich hab auch keine Ahnung (
) wie ich die einzelnen Prozeduren deklarieren soll, die in TSeiteList deklariert werden...
Delphi-Quellcode:
TseiteList = class(TObjectList)
public
function Add(AObject: TSeite): Integer;
function First: TSeite;
function Last: TSeite;
property Items[Index: Integer]: TSeite read GetItem write SetItem; default;
end;
Ansonsten nochmal zu der Frage mit den Konstruktoren. Was passiert mit
Tseite(project.pages.last).pic:=Timage.create(self)
wenn ich das hier ausführe:
Tseite(project.pages.last).delete;