DelphiX - Speziellen Sprite ansprechen

[Die Muhkuh]

Hi,


ich hab das so gemacht:

Delphi-Quellcode:

procedure TFigur.DoCollision(Sprite: TSprite; var Done: Boolean);
var
  Schritt: Extended;
begin
  if Sprite is TGold then
  begin
    if TGold(Sprite).Visible then
    begin
      TGold(Sprite).GetGold;
    end;
  end;
end;

Vielleicht hilfts dir ja.