ok hab folgende Funktionen hinzugefügt:
Delphi-Quellcode:
procedure AddImage(Item: TImage);
procedure TPageCollection.AddImage(Item: TImage);
begin
Add(Item);
end;
procedure TtfMain.Button1Click(Sender: TObject);
begin
PageCollection := TPageCollection.Create;
PageCollection.Add(TImage.Create(Self));
end;
procedure TtfMain.FormDestroy(Sender: TObject);
begin
FreeAndNil(PageCollection);
end;
und ich bekomme keine
AV. Kann das Problem sein das due die Add Funktion der Objectliste überschreibst?