Сталкивание Image

[SnJon]

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

В этой теме нашел прилипание к верхнему и левому краю.

На примере Image:

if image3.Top+image3.Height+1>image2.Top then
image3.Top:=image2.Top-image3.Height-1;//прилипание к верхнему краю 

    if image3.left+image3.width+1>image2.left then
image3.left:=image2.left-image3.width-1;  //прилипание к левому краю

Как сделать сталкивание с нижним и правым краем?

Заранее благодарен

[bulldog5293]

Как сделать сталкивание с нижним и правым краем?

Нижний и правый край в дельфи отсутствует, тебе нада вести отсчёт именно от верхнего и левого края, по другому никак

[Пепел Феникса]

Нижний и правый край в дельфи отсутствует, тебе нада вести отсчёт именно от верхнего и левого края, по другому никак

да ну?
и получить координаты нижнего и верхнего края мы не можем никак?

[grafgrial]

примерно так

 if image3.left+image3.width+1>image2.left then
image3.Left:=image2.Width+image3.Width+(image3.Width div 4)-1;
if image3.Top+image3.Height+1>image2.Top then
image3.Top:=image2.Height+image3.Height+(image3.Height div 6)+1;

Если бы мне это нужно было я бы лучше написал

[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;