DelphiX - Beim klick auf DXDraw soll das Sprite erkannt werd

[Die Muhkuh]

Hi,

hab die andere möglichkeit gefunden:

Delphi-Quellcode:

var
  Sprite: TSprite;
begin
  Sprite := SpriteEngine.Engine.GetSpriteAt(X, Y);

  if Sprite is TGold then
    mmInfo.Text := TGold(Sprite).GetInfoText
  else
  if Sprite is TWasser then
    mmInfo.Text := TWasser(Sprite).GetInfoText
  else
    mmInfo.Text := '';

Im OnMouseDown event!