направление кнопки

← →
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;
>
> помагите пожалюста

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

> 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;
т.е фигура у тебя на одном месте крутится

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

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