[oop] funktion einer oberklasse von einer unterklasse aus

[Dax]

Delphi-Quellcode:

type 
  TCCard=class;
  
  TCManager=class;
  
  TCMemory=class(TObject)
  private
    hBitmap:array[0..1] of TBitmap;
    hManager:TCManager;
    zClicked:Integer;
  public
    constructor Create(pForm:TForm;pPlayers,pCards,pKinds:Integer);
    procedure Click(pID:Integer);
  end;

  TCManager=class(TObject)
  private
    zCards:Integer;
    hField:TField;
    hCard:TCCard;
  public
    constructor Create(pWinControl:TWinControl;pCards:Integer);
  end; 

  TCCard=class(TObject)
  private
    hImage:TImage;
    zID:Integer;
    kMemory:TCMemory;
  public
    constructor Create(pWinControl:TWinControl;pMemory:TCMemory;pID,pXPos,pYPos:Integer);
    procedure Click(Sender:TObject);
    procedure Draw(pBitmap:TBitmap);
    function GetID:Integer;
  end;