Dynamisches Sprite in DelphiX

[Die Muhkuh]

Hmm,

versuche doch eine neue Methode zu machen:

Delphi-Quellcode:

TGegenstand = class(TImageSprite)
    public
      procedure DoMove(MoveCount: Integer); override;
      constructor Create(AParent: TSprite); override;

      procedure ChangeImage(Index: Integer);
    end;


procedure TGegenstand.ChangeImage(Index: Integer);
begin
  Image := Image := Form1.DXImageList1.Items[prz];
  Width := Image.Width;
  Height := Image.Height;
end;