Работа с image

[glebast]

Здравствуйте.
Помогите мне плиз, а то совсем уж все навыки иссякли.
Мне нужно чтоб маленькая картинка НЕ проходила сквозь большую, т.е. как только границы двух картинок соприкоснуться маленькая картинка дальше ехать не могла.
Заранее спасибо.

[Serge_Bliznykov]

так пойдёт?

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  NewImage2, tmp : TRect;
begin
  NewImage2 := image2.BoundsRect;
  if (key=vk_left) and (NewImage2.Left>0) then NewImage2.Left:= NewImage2.Left-5;
  if (key=vk_right) and (NewImage2.Left<form1.ClientWidth-Image2.Width) then NewImage2.Left:=NewImage2.Left+5;
  if (key=vk_up) and (NewImage2.top>0) then NewImage2.top:=NewImage2.top-5;
  if (key=vk_down) and (NewImage2.top<form1.ClientHeight-Image2.Height) then NewImage2.top:=NewImage2.top+5;
  NewImage2.Right := NewImage2.Left + Image2.Width;
  NewImage2.Bottom := NewImage2.Top + Image2.Height;
  if not IntersectRect(tmp, NewImage2, Image1.BoundsRect )
       then
         image2.BoundsRect := NewImage2;
end;

p.s. Image2 останавливается, если следующий шаг уже приводит к наезду на картинку 1. т.к. шаг у Вас равен 5, то может остановится в диапазоне от 0 до 4 пикселей

[BDA]

Serge_Bliznykov, попробовал так (чуть до-другому, ваш способ лучше):

function intersection(x,y:integer;r1,r2:trect):boolean;
var
r0:trect;
begin
  r1.Left:=r1.left+x;
  r1.Top:=r1.Top+y;
  result:=not IntersectRect(r0,r1,r2);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=vk_left) and (image2.Left>0) and intersection(-5,0,image2.BoundsRect,image1.BoundsRect) then image2.Left:=image2.Left-5;
if (key=vk_right) and (image2.Left<form1.ClientWidth-image2.Width)and intersection(5,0,image2.BoundsRect,image1.BoundsRect) then image2.Left:=image2.Left+5;
if (key=vk_up) and (image2.top>0)and intersection(0,-5,image2.BoundsRect,image1.BoundsRect) then image2.top:=image2.top-5;
if (key=vk_down) and (image2.top<form1.ClientHeight-image2.Height)and intersection(0,5,image2.BoundsRect,image1.BoundsRect) then image2.top:=image2.top+5;
end;

Не работает. Делает лишнее движение. Не пойму, почему.