[txforce]

Как сделать чтоб эллипс рисовался по таймеру по определённым координатам которые вычисляются в цикле...вот у меня такая шняга...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm1.Timer2Timer(Sender: TObject); var Vx,Vy,x,y,d,a:real;  begin    Canvas.Brush.Color:=clblue;    Canvas.Pen.Color:=clblack;  Vx:=1500;  Vy:=1200;  x:=11000;  y:=0;  d:=0.001;  a:=-3;      repeat     Vx:=Vx+a*x;     Vy:=Vy+a*y;     x:=x+Vx*d;     y:=y+Vy*d;      xe1:=350+round(x/110);      ye1:=250-round(y/0.5);      Canvas.MoveTo(xe1,ye1);      Canvas.Ellipse(xe1-5,ye1+5,xe1+5,ye1-5);   until x>11000;:)

lmikle: пользуемся тегами!

короче мне надо чтоб не сразу рисовалось а через интервал времени...

[lmikle]

Тебе надо сделать тка, что по таймеру будет отрисовываться 1 итерация цикла, а все переменные тебе надо определить на уровне класса.

[txforce]

А как это сделать?????

[Страдалецъ]

В качестве цикла у тебя бкдет выступать само событие

Код:

1	Form1.Timer2Timer(Sender: TObject);

По достижении x>11000 тебе надо отключить событие

Код:

1	Timer2.Enabled := x > 11000;

Осталось только перенести описание переменных в приватную секцию формы :

Код:

1	Vx,Vy,x,y,d,a:real;

и вынести из процедуры инициализацию переменных, в создание формы:

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.FormCreate(Sender: TObject); begin  Vx:=1500;  Vy:=1200;  x:=11000;  y:=0;  d:=0.001;  a:=-3; end;