[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-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;

Как сделать чтобы они менялись, но по траектории кола?

[B-love@Wolf]

Народ, что? Никаких идей?

[B-love@Wolf]

Я хочу чтобы два image двигались по колу. Такое можете сказать?

[M.A.D.M.A.N.]

image[i].visible := ...

[B-love@Wolf]

Сообщение от M.A.D.M.A.N.

image[i].visible := ...

К чему здесь это? давай поподробней ->

[M.A.D.M.A.N.]

Опиши, пожалуйста, что у тебя должно получиться в конечном итоге? Можешь даже нарисовать.

[B-love@Wolf]

я хочу в виде анимацыи медленно поменять image1 c image2 по траектории кола а не прямоугольника, как сделал это я в даной процедуре. они стоят рядом.

[B-love@Wolf]

Народ вы что гоните?

[einstein]

зачем тебе по траектории прямоугольнику то? сделай по траектории кола

[M.A.D.M.A.N.]

Сообщение от einstein

зачем тебе по траектории прямоугольнику то? сделай по траектории кола

ЗачОт.

По теме:
Пользуй синус и косинус.

[B-love@Wolf]

Сообщение от einstein

зачем тебе по траектории прямоугольнику то? сделай по траектории кола

для отображения метода сортировки выбором, это логичней чем по колу, а сейчас делаю пузырьковый метод сортировки, по этому и просил чтобы сделать это по траектории кола

[B-love@Wolf]

Сообщение от M.A.D.M.A.N.

ЗачОт.

По теме:
Пользуй синус и косинус.

а по точней... как это выглядит?

[M.A.D.M.A.N.]

Для начала почитай о том, как строить окружность.
Делать за тебя никто ничего не будет.

[B-love@Wolf]

Даааааа!!! прошу лиш маленький пример, и сразу читай сам! так для чего тогда этот форум? я думал для того чтобы помагать тем кто чегото не знает.

[B-love@Wolf]

Ну что ж - пока сам не сделаешь никто не поможет. Вот что я хотел:

Код:

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;