TimageSprite und MousePosition

[Flogo]

Also bei mir siehts so aus:

Delphi-Quellcode:

type
  TCursorSprite = Class(TImageSprite)
    procedure DoCollision(Sprite:TSprite; var Done:Boolean); override;
    procedure DoMove(MoveCount: Integer); override;
  end;

//...

procedure TCursorSprite.DoCollision(Sprite:TSprite;var Done:Boolean);
begin
  inherited;
  if (Sprite is TItem) and Sprite.Visible then  //statt TItem die Klasse deiner Levelbausteine
   //...
end;

procedure TCursorSprite.DoMove(MoveCount: Integer);
begin
  inherited;
  Collision;
end;

procedure TForm1.DXDrawMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  MouseCursor.x := X;
  MouseCursor.y := Y;
  MouseCursor.Collision;
end;

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]