Multipage-Support: Ich komme nicht weiter

[Die Muhkuh]

Hi,

ich würde ja diese Aufteilung vorschlagen:

Delphi-Quellcode:

type
  TSeite = class(TObject)
  ...
  end;

  TDokument = class(TObjectList)
  private
    function GetSeite(Index: Integer): TSeite;
  public
    property Items[Index: Integer]: TSeite read GetSeite;
  end;

function TDokument.GetSeite(Index: Integer): TSeite;
begin
  Result := TSeite(inherited Items[Index]);
end;