Код контроля столкновении или когда край на другом объекте

Posted by Chas under Delphi

Имеется 2 объекта на форме (Image), которые можно свободно перемещать по форме, нажав на них мышкой.
Вопрос — Как сделать, чтобы объекты сталкивались друг с другом?

Aliens_wolfs
Код контроля столкновении или когда край на другом объекте.
Вдруг пригодится кому нибудь этот код

function CheckCollision(r, r2: TRect): boolean;
begin
result := (r.Top >= r2.Top) and (r.Top <= r2.Bottom) and (r.Left >= r2.Left) and (r.Left <= r2.Right) or (r.Top >= r2.Top) and (r.Top <= r2.Bottom) and (r.Right >= r2.Left) and (r.Right <= r2.Right) or (r.Bottom >= r2.Top) and (r.Bottom <= r2.Bottom) and (r.Left >= r2.Left) and (r.Left <= r2.Right) or (r.Bottom >= r2.Top) and (r.Bottom <= r2.Bottom) and (r.Right >= r2.Left) and (r.Right <= r2.Right); end; procedure TForm1.Timer1Timer(Sender: TObject); begin if CheckCollision(Image1.BoundsRect, Image2.BoundsRect)then Caption:= 'Объект сталкнулся' else Caption:= ''; end;[/code] тема на форуме

Похожие статьи

• Столкновения в 2D-игре