Delphi-Quellcode:
function CollidesWith(AObject: TBasis): boolean;
[...]
function TSprite.CollidesWith(AObject: TBasis): boolean;
begin
Result := (FImage.Left+FImage.Width > AObject.Left) and
(FImage.Top +FImage.Height > AObject.Top ) and
...;
end;
Das verstehe ich nicht ganz. Wo kommt das TBasis her? Die Klasse, welche du erstellt hast heißt doch TSprite, oder?