Тема: Выдвежная Panel как Супермен :)
Показать сообщение отдельно
  #12  
Старый 12.07.2011, 00:52
Аватар для Pit-bull85
Pit-bull85 Pit-bull85 вне форума
Прохожий
  
Регистрация: 20.02.2011
Сообщения: 8
Репутация: 10
По умолчанию
Код:
while Panel.Top >= 608 do 
begin
 Panel1.Top := Panel1.Top - 5;
 Sleep(1000);
end;
Ответить с цитированием