Почему Шар не движется по правой ветви функции у=х(в квадрате)?

[reznor264]

begin
Shape1.Left:=0;
Shape1.Top:=Form1.ClientHeight-SHape1.Height;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
SHApe1.top:=SHape1.Top+x;
SHape1.Left:=SHape1.Left+10;
x:=x+10;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:= not timer1.Enabled;
x:=10;








вежь каждому постоянному значению х присва пропорционально большое значение игрек?

[Black Fregat]

Потому что вылетает за пределы формы. Shape1.Top у Вас и без того достаточно велик при старте, а Вы его еще увеличиваете, значит, фигуру дальше вниз гоните.

Вероятно, надо поставить
Shape1.Top:=Shape1.Top - x;

[reznor264]

о спасибо исправил,
а что мне теперь надо поменять, что он пошел по дуге вправо вверх?

[reznor264]

НУ ИЛИ по левой ветки функции у=-х(в квадрате)?

[evg_m]

наверное так

SHApe1.top:=Form1.ClientHeight-SHape1.Height - (x*x);
SHape1.Left:= x;
x:=x+10;