[oop] funktion einer oberklasse von einer unterklasse aus

[Die Muhkuh]

Delphi-Quellcode:

//Stichwort: Forward Decs:

type
  TCCard = class;
  TCManager = class;
  TCMemory = class;

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;

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

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;