Тема: Выдвежная Panel как Супермен :)
Показать сообщение отдельно
  #13  
Старый 12.07.2011, 00:55
Аватар для angvelem
angvelem angvelem вне форума
.
  
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию
Цитата:
Сообщение от Pit-bull85
Код:
while Panel.Top >= 608 do 
begin
 Panel1.Top := Panel1.Top - 5;
 Sleep(1000);
end;
Тоже не фонтан, во время выполнения форма будет недоступна.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием