|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перемещение обектов по форме
Имею такую процедуру:
Код:
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, 13.04.2011 в 16:33. |