[B-love@Wolf]

Имею такую процедуру:

Код:

Procedure Oborot(img1,img2:TImage; Lbl1,Lbl2:TsLabelFX);
var i,j,a1,a2,L1,L2:integer;\\а1,а2 для разпознания номера Image
begin
L1:=29; a1:=1;
L2:=29; a2:=1;
while L1<img1.Left do
begin
L1:=L1+72;
a1:=a1+1;
end;
while L2<img2.Left do
begin
L2:=L2+72;
a2:=a2+1;
end;
For i:=1 to 65 do
 begin
  img1.Top:=img1.Top-i;
  lbl1.Top:=lbl1.Top-i;
  img2.Top:=img2.Top+i;
  lbl2.Top:=lbl2.Top+i;
  Sleep(5);
  Application.ProcessMessages;
 end;
{for i:=1 to a2-a1 do
 BEGIN
 for j:=1 to 72 do
  begin
  img1.Left:=img1.Left+j;
  lbl1.Left:=lbl1.Left+j;
  img2.Left:=img2.Left-j;
  lbl2.Left:=lbl2.Left-j;
  Sleep(5);
  Application.ProcessMessages;
  end;
 END;}
For i:=1 to 65 do
 begin
  img1.Top:=img1.Top+i;
  lbl1.Top:=lbl1.Top+i;
  img2.Top:=img2.Top-i;
  lbl2.Top:=lbl2.Top-i;
  Sleep(5);
  Application.ProcessMessages;
 end;
end;

Но чевота двигаются обекты не по пикселях, а хрен зна как... выходит за границы формы.
В чём дело?

[B-love@Wolf]

И что? ни у кого никаких идей или мыслей?

[dr. F.I.N.]

у тебя инкримент перемещения равен счетчику цикла:

Код:

For i:=1 to 65 do ... img1.Top:=img1.Top-i;

У тебя i растет от 1 до 65. Хочешь двигать по единице - пиши:

Код:

For i:=1 to 65 do ... img1.Top:=img1.Top-1;

[Black Raider]

Ну а собственно почему они не должны выходить за границы формы?

чет в приведенном коде я не увидел проверку на ограничение на границу.

[B-love@Wolf]

Блин, децкая же ошыбка!!! спасибо!!!