|
#1
|
|||
|
|||
InterSectRect
Хочу сделать одним if'ом
Код:
if InterSectRect(Overlay, Ball.BoundsRect, Platforms.BoundsRect) then begin VelX:= -VelX; VelY:= -VelY; end; procedure TForm2.Timer2Timer(Sender: TObject); begin for i := 1 to 5 do FindComponent ('Image'+ inttostr(i)) := Platforms; end; Но из за незнания у меня не чего не пашет. Нужна помощь! Последний раз редактировалось Admin, 04.04.2016 в 14:50. |