| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
направление кнопки
tanya11 © (2006-05-06 02:22:00)нужно зделать так чтобы 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:00) [1]
> 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;
т.е фигура у тебя на одном месте крутится
пересмотри свою программу и поставь переменную которая бы учитывала дохождение фигуры до конца
balepa (2006-05-06 06:44:00) [2]
> 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;
>
> помагите пожалюста
А где в приведенном коде верхушка формы ?
| |
