[Andorra]: Zur Lauzeit erstelle Sprites finden

[Spiderpig_GER_15]

hier ist der Quelltext der Funktion GetSpriteAt():

Delphi-Quellcode:

function TSprite.GetSpriteAt(X, Y: integer): TSprite;
var i:integer;
    rect:TAdRect;
begin
  result := nil;
  for i := Items.Count - 1 downto 0 do
  begin
    rect := Items[i].BoundsRect;
    if (X >= rect.Left) and (X <= rect.Right) and
       (Y >= rect.Top) and (Y <= rect.Bottom) then
    begin
      result := Items[i];
      break;
    end;    
  end;
end;

wenn euch das hilft