Скачать: CL | DM;

направление кнопки   Найти похожие ветки 

← →
tanya11   (2006-05-06 02:22) [0]

нужно зделать так чтобы shape1 дойдя вурхушки формы обратно вернулся и такой вот цыкл,вверх- вниз.
у меня что то не получается, вот пищу так.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
shape1.Top:=shape1.Top-5;
if shape1.Top<=shape2.Top then
shape1.Top:=shape1.Top+5;
end;

помагите пожалюста

---

← →
balepa ©   (2006-05-06 06:44) [1]

> tanya11   (06.05.06 02:22)  
> нужно зделать так чтобы shape1 дойдя вурхушки формы обратно
> вернулся и такой вот цыкл,вверх- вниз.
> у меня что то не получается, вот пищу так.
>
> procedure TForm1.Timer1Timer(Sender: TObject);
> begin
> shape1.Top:=shape1.Top-5;
> if shape1.Top<=shape2.Top then
> shape1.Top:=shape1.Top+5;
> end;
>
> помагите пожалюста


А где в приведенном коде верхушка формы ?

---

← →
Elen ©   (2006-05-06 08:04) [2]

> tanya11

дело в том что у тебя программа работает так:

1:
>
 shape1.Top:=shape1.Top-5;
 if shape1.Top<=shape2.Top then

фигура будет плыть вверх пока shape1.Top>shape2.Top
2:как только это условие выпонилось происходит переход фигуры в другое направление :
>
if shape1.Top<=shape2.Top then
shape1.Top:=shape1.Top+5;

но shape1 в это время становится ниже чем shape2 и опять выполняется
shape1.Top:=shape1.Top-5;
т.е фигура у тебя на одном месте крутится

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c