Delphi-Quellcode:
Tseite=class
pic: Timage;
//...
end;
Tproject=class
save: Tsave;
Pages: TseiteList;
end;
var project: Tproject;
Wenn ich nun im Programmcode ein Bild erzeuge:
Delphi-Quellcode:
project.pages:= Tseitelist.create; //Ownsobjects automatisch auf true
projec.pages.add(Tseite.create);
project.pages.last.pic:=Timage.create(nil); //Bild erstellen
project.pages.parent:=Mainform;
//auf dem Bild wird nachfolgend was gezeichnet
wenn ich nun später das hier aufrufe:
project.delete(0);//0= index von pages.last
so bleibt das Bild weiter auf der Form und ist nicht weg :/ wurde das also auch nicht freigegeben?