Имею такую процедуру:
Код:
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;
Но чевота двигаются обекты не по пикселях, а хрен зна как... выходит за границы формы.
В чём дело?