[Andorra]: Zur Lauzeit erstelle Sprites finden

[franktron]

Hast du den überhaupt deinen Sprite in items hinzugefügt ???

[igel457]

Folgendes sollte gehen:

Delphi-Quellcode:

var
  tmp_sprite: TSprite;
begin
  tmp_sprite := AdSpriteEngine.GetSpriteAt(X, Y);
  if (tmp_sprite <> nil) and (tmp_sprite is TMySprite) then
  begin
    ShowMessage('Buh!');
  end;

@frantron
Die Items werden automatisch in die Liste eingefügt

[Spiderpig_GER_15]

Lala, sorry

Es lag daran das die Koordinaten nicht auf Fenster umgerechnet waren.

Jetzt geht es:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If SpriteEngine.GetSpriteAt(X, Y) is TMySprite then
  begin
    showmessage('oops');
  end;
end;

[Spiderpig_GER_15]

Wenn ich schon was zu Sprites und auswählen gefragt hab, könnt ihr mir vielleicht ein weiteres Mal helfen?:

Delphi-Quellcode:

  TMySprite = class(TImageSpriteEx)
  protected
    procedure DoMove(TimeGap: double); override;
    procedure DoDraw; override;
    //    procedure DoCollision(Sprite: TSprite; var Done: boolean); override;
  public
    Info: String; // <=== Da will ich drauf zu greifen wenn ich auf die Sprite geklickt hab!
    procedure Klick;
    procedure GetInfo(Sender: TObject; var Key: Char);
    constructor Create(AParent: TSprite); override;
    destructor Destroy; override;
  end;

Ich möchte mit diesem Code die Sprite ermitteln auf die ich geklickt habe:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If SpriteEngine.GetSpriteAt(X, Y) is TMySprite then
  begin
    showmessage('oops');
  end;
end;

Und bei showmessage will ich den String Info von TMySprite ausgeben. Wie geht das?
So nicht:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If SpriteEngine.GetSpriteAt(X, Y) is TMySprite then
  begin
    showmessage(SpriteEngine.GetSpriteAt(X, Y).Info);
  end;
end;

MfG

Spiderpig

[bigben37]

Du musst das Sprite casten:
showmessage((SpriteEngine.GetSpriteAt(X, Y) as TMySprite).Info);

[Spiderpig_GER_15]

Danke

Funktioniert Superb!