[oop] funktion einer oberklasse von einer unterklasse aus

[neomic]

die idee hatte ich auch schon...


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

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

type 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;


dann sag mir mal bitte wie ich das anordnen soll...