Не могу понять, почему шарик не отлатает в нижней правой границы (Delphi) - Помощь студентам

reznor264 · 11.11.2010, 19:02

У меня шар движется от левого нижнего угла формы под углом к горизонту, а когда доходит до правого нижнего угла-улетает вниз, а не движется вверх

Почему это происходит?Я же прописал "if (Shape1.Top>=Form1.ClientHeight-Shape1.Height ) and (x>0) then (Shape1.Top:=Shape1.Top-1);" , ниже изложен текст программы

Код:

begin
  if (Shape1.Top>=Form1.ClientHeight-Shape1.Height ) and (x>0) then (Shape1.Top:=Shape1.Top-1);
y := -sqr(x);
if x>0 then y:=-y;
shape1.left := shape1.left +(x+35);
shape1.top := shape1.top+(y div 1);
x:=x+1;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
X := -10;
Shape1.Left:=0;
Shape1.Top:=Form1.ClientHeight-Shape1.Height;

kaljan775 · 11.11.2010, 19:09

вы знаете что такое "полярная система координат"?

reznor264 · 11.11.2010, 20:07

Нет, а к чему этот вопрос?

kaljan775 · 11.11.2010, 21:30

к шарику :D

reznor264 · 11.11.2010, 21:38

мда...знаешь что исправить-напиши, не знаешб-нахер всякий бред писать

11.11.2010, 19:02	#1
reznor264 Пользователь Регистрация: 02.11.2010 Сообщений: 18	Не могу понять, почему шарик не отлатает в нижней правой границы (Delphi) У меня шар движется от левого нижнего угла формы под углом к горизонту, а когда доходит до правого нижнего угла-улетает вниз, а не движется вверх Почему это происходит?Я же прописал "if (Shape1.Top>=Form1.ClientHeight-Shape1.Height ) and (x>0) then (Shape1.Top:=Shape1.Top-1);" , ниже изложен текст программы Код: `begin if (Shape1.Top>=Form1.ClientHeight-Shape1.Height ) and (x>0) then (Shape1.Top:=Shape1.Top-1); y := -sqr(x); if x>0 then y:=-y; shape1.left := shape1.left +(x+35); shape1.top := shape1.top+(y div 1); x:=x+1; end; procedure TForm1.FormCreate(Sender: TObject); begin X := -10; Shape1.Left:=0; Shape1.Top:=Form1.ClientHeight-Shape1.Height;` Последний раз редактировалось Stilet; 11.11.2010 в 20:29.

11.11.2010, 19:09	#2
kaljan775 :D Форумчанин Регистрация: 26.09.2010 Сообщений: 570	вы знаете что такое "полярная система координат"? Пишу ПО, создаю сайты, делаю курсовые работы, за деньги C#, .NET, MS SQL, AngularJS, HTML, jQuery

11.11.2010, 21:30	#4
kaljan775 :D Форумчанин Регистрация: 26.09.2010 Сообщений: 570	к шарику :D Пишу ПО, создаю сайты, делаю курсовые работы, за деньги C#, .NET, MS SQL, AngularJS, HTML, jQuery

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Не могу понять почему не работает микрофон	Stilet	Компьютерное железо	8	08.10.2010 16:54
Почему не работает...хм....понять не могу!	Артур Иваныч	Microsoft Office Excel	9	01.12.2009 17:58
Не могу понять почему блокируется папка	Paul Hindenburg	Общие вопросы Delphi	4	07.05.2009 10:47
Не могу понять почему вылетает 3 процедурка, помогите	Taisja	Помощь студентам	2	04.06.2008 21:28

11.11.2010, 20:07	#3
reznor264 Пользователь Регистрация: 02.11.2010 Сообщений: 18	Нет, а к чему этот вопрос?

11.11.2010, 21:38	#5
reznor264 Пользователь Регистрация: 02.11.2010 Сообщений: 18	мда...знаешь что исправить-напиши, не знаешб-нахер всякий бред писать