Funktion in übergeordneter Klasse aufrufen

[SirThornberry]

ok, so würde es funktionieren

Delphi-Quellcode:

type
  TElternKlasse = class(TObject)
  private
    fList: TList; //Liste mit den Instane von TKindKlasse
    procedure FCreateKind;
[...]
  TKindKlasse = class(TObject)
  private
    fParent: TElternKlasse;
  public
    constructor Create(AElternKlasse: TElternKlasse);
  end;
[...]
procedure TElternKlasse.FCreateKind;
var LKind: TKindKlasse;
begin
  //Das Kind erzeugen und als Parameter den Parent (Self = Elternklasse) mitgeben
  LKind := TKindKlasse.Create(Self);
  //Kind in Liste einfügen
  fList.Add(LKind);
end;
[...]
constructor TKindKlasse.Create(AElternKlasse: TElternKlasse);
begin
  inherited Create;
  fParent := AElternKlasse;
  //Ab jetzt kannst du über "fParent" auf den Parent (Elternklasse) zugreifen
end;
[...]