Циклы

← →
Kost © (2003-08-20 15:57) [0]

Как запустить цикл который постепенно будет отодвигать квадрат вниз п
о форме?

← →
Palladin © (2003-08-20 15:59) [1]

Как ты быстро пароль вспомнил

← →
Skier © (2003-08-20 16:00) [2]

>Kost © (20.08.03 15:57)
Создать экземпляр TShape и вперёд !

← →
Ketmar © (2003-08-20 16:05) [3]

не вперёд, а вниз

← →
Kost © (2003-08-20 16:06) [4]

нУ НАПИШИТЕ ПРИМЕР

← →
Skier © (2003-08-20 16:07) [5]

ПРИМЕР

← →
han_malign © (2003-08-20 16:10) [6]

TTimer + TShape.Top

← →
Palladin © (2003-08-20 16:13) [7]

Еще один ПРИМЕР

← →
Ketmar © (2003-08-20 16:21) [8]

>#6
компилятор это выражение не примет

есть такое волшебное слово - Application.ProcessMessages
только после рисования квадрата поставь sleep(100) а то ничего не заметишь :)

2 Kost
var
count : integer;
begin
for count := 0 to Form1.Width - Kvadrat.Width do
Kvadrat.Top := count;
end;

ЗЫ
Научись наконец задавать вопросы. Не бойся ты что твою гениальную идею сопрут. Если что то по сложнее надо посмотри в форуме "Игры" там у них и квадраты двигаются и бегают по форме псевдо осознано. Ну вообщем разберешся))

Циклы Найти похожие ветки