Как осуществить эффект выезжания окна?

[Dr.Grizzly]

Привет Всем! Вот сижу гадаю, как же сделать чтоб окно выезжало а не появлялось мгновено? Я сделал чтоб от главного окна появлялось второе окно расположенное всегда снизу, даже если таскаем окно, то второе перемещаеться за ним. А вот как сделать чтоб оно выехало как бы из под первого???

[YurikGL]

В чем проблема то? Кладешь таймер и на onTimer меняешь left и top формы.

[Dr.Grizzly]

!!! Не догадался Спасибо огромедное!!!!

[Dimas]

Анимированное открытие окна

Код: Выделить всё

procedure TForm1.FormCreate(Sender: TObject);
begin
  AnimateWindow(Form1.handle //Ссылка на окно
 ,800 //Время через которое произойдёт открытие окна
 ,random(20)+1 //Эффект который произойдёт
 );
end;