Страница 1 из 1
Как осуществить эффект выезжания окна?
Добавлено: 17 мар 2005, 09:34
Dr.Grizzly
Привет Всем! Вот сижу гадаю, как же сделать чтоб окно выезжало а не появлялось мгновено? Я сделал чтоб от главного окна появлялось второе окно расположенное всегда снизу, даже если таскаем окно, то второе перемещаеться за ним. А вот как сделать чтоб оно выехало как бы из под первого???
Добавлено: 17 мар 2005, 15:57
YurikGL
В чем проблема то? Кладешь таймер и на onTimer меняешь left и top формы.
Добавлено: 18 мар 2005, 10:27
Dr.Grizzly
!!! Не догадался
Спасибо огромедное!!!!
Добавлено: 23 сен 2005, 08:24
Dimas
Анимированное открытие окна
Код: Выделить всё
procedure TForm1.FormCreate(Sender: TObject);
begin
AnimateWindow(Form1.handle //Ссылка на окно
,800 //Время через которое произойдёт открытие окна
,random(20)+1 //Эффект который произойдёт
);
end;