|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перемещение обектов по форме 2
Имею такую процедуру:
Код:
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-1; lbl1.Top:=lbl1.Top-1; img2.Top:=img2.Top+1; lbl2.Top:=lbl2.Top+1; Sleep(5); Application.ProcessMessages; end; {for i:=1 to a2-a1 do BEGIN for j:=1 to 72 do begin img1.Left:=img1.Left+1; lbl1.Left:=lbl1.Left+1; img2.Left:=img2.Left-1; lbl2.Left:=lbl2.Left-1; Sleep(5); Application.ProcessMessages; end; END;} For i:=1 to 65 do begin img1.Top:=img1.Top+1; lbl1.Top:=lbl1.Top+1; img2.Top:=img2.Top-1; lbl2.Top:=lbl2.Top-1; Sleep(5); Application.ProcessMessages; end; end; Как сделать чтобы они менялись, но по траектории кола? |
#2
|
|||
|
|||
Народ, что? Никаких идей?
|
#3
|
|||
|
|||
Я хочу чтобы два image двигались по колу. Такое можете сказать?
|
#4
|
||||
|
||||
image[i].visible := ...
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#5
|
|||
|
|||
Цитата:
К чему здесь это? давай поподробней -> Последний раз редактировалось B-love@Wolf, 20.04.2011 в 18:16. |
#6
|
||||
|
||||
Опиши, пожалуйста, что у тебя должно получиться в конечном итоге? Можешь даже нарисовать.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#7
|
|||
|
|||
я хочу в виде анимацыи медленно поменять image1 c image2 по траектории кола а не прямоугольника, как сделал это я в даной процедуре. они стоят рядом.
Последний раз редактировалось B-love@Wolf, 20.04.2011 в 18:58. |
#8
|
|||
|
|||
Народ вы что гоните?
|
#9
|
|||
|
|||
зачем тебе по траектории прямоугольнику то? сделай по траектории кола
|
#10
|
||||
|
||||
Цитата:
По теме: Пользуй синус и косинус. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#11
|
|||
|
|||
Цитата:
для отображения метода сортировки выбором, это логичней чем по колу, а сейчас делаю пузырьковый метод сортировки, по этому и просил чтобы сделать это по траектории кола |
#12
|
|||
|
|||
Цитата:
а по точней... как это выглядит? |
#13
|
||||
|
||||
Для начала почитай о том, как строить окружность.
Делать за тебя никто ничего не будет. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#14
|
|||
|
|||
Даааааа!!! прошу лиш маленький пример, и сразу читай сам! так для чего тогда этот форум? я думал для того чтобы помагать тем кто чегото не знает.
|
#15
|
|||
|
|||
Ну что ж - пока сам не сделаешь никто не поможет. Вот что я хотел:
Код:
procedure TForm1.Button1Click(Sender: TObject); var pi,k:real; x1,y1,x2,y2,cx,cy,i,r:integer; begin r:=36; x1:=60; y1:=135; x2:=132; y2:=135; cx:=96; cy:=135; pi:=3.1415; k:=pi; for i:=1 to 50 do begin k:=k+0.02*pi; x1:=cx+Round(cos(k)*r); x2:=cx+Round(cos(k+pi)*r); y1:=cy+Round(sin(k)*r); y2:=cy+Round(sin(k+pi)*r); image1.Left:=x1-31; image1.Top:=y1-31; image2.Left:=x2-31; image2.Top:=y2-31; Sleep(10); Application.ProcessMessages; end; end; Последний раз редактировалось B-love@Wolf, 21.04.2011 в 21:28. |