Kollisionsabfrage bei Supermario-Klon

[SirThornberry]

IntersectRect verlangt koordinaten. du musst also von den 2 Images wo du testen willst ob sie kollidieren die koordinaten übergeben:

Delphi-Quellcode:

var LRectUeberlappung,
    LRect1,
    LRect2            : TRect;
    LSindKollidiert   : Boolean;
begin
  LRect1 := Rect(Image1.Left, Image1.Top, Image1.Width, Image1.Height);
  LRect2 := Rect(Image2.Left, Image2.Top, Image2.Width, Image2.Height);
  LSindKollidiert := IntersectRect(LRectUeberlappung, LRect1, LRect2);