Das wäre natürlich eine Idee. Meine Klasse sieht jetzt so aus:
Delphi-Quellcode:
type
TPageCollection = class(TList)
private
function GetItem(Index: Integer): TImageEnVect;
procedure SetItem(Index: Integer; Item: TImageEnVect);
public
// ...;
property Items[Index: Integer]: TImageEnVect read GetItem write SetItem;
// ...;
end;
// ...;
function TPageCollection.GetItem(Index: Integer): TImageEnVect;
begin
Result := inherited Get(Index);
end;
procedure TPageCollection.SetItem(Index: Integer; Item: TImageEnVect);
begin
self.Items[Index] := Item;
end;
procedure TPageCollection.Update(Index: Integer; Item: TImageEnVect);
begin
self.Items[Index] := Item;
end;
Aber dann reagiert das Programm gar nicht mehr.