DelphiX "Schussproblem"

[Dagon]

Bezogen auf den Code von oben:

Delphi-Quellcode:

type 
  tmg = class(timagesprite) 
  public 
    constructor Create(AParent: TSprite); override;
  end; 

[...]

constructor tmg.Create(AParent: TSprite);
begin
  inherited Create (AParent);
  Image := Form1.DXImageList1.Items.Find('Schuss');
  Width  := Image.Width;
  Height := Image.Height;
end;