Плавное появление формы

[HAMMAN]

Помогите сделать (желательно по подробнее) форму чтобы она плавно появлялась и плавно исчезала. Давно хочу сделать нечто подобное!
Заранее благодарен!

[WOLFak]

у формы есть свойство alphablend ему нада true
после alphablendvalue в таймере уменьшать отт 255 до 0 - это исчезновение

[WOLFak]

procedure TForm1.Button1Click(Sender: TObject);
begin
 form1.AlphaBlend:=true;
 i:=255;
 r:=false;
 form1.Timer1.Interval:=1;
 form1.Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if not r then
  begin
   dec(i,3);
   form1.AlphaBlendValue:=i;
  end else
   begin
    inc(i,3);
    form1.AlphaBlendValue:=i;
   end;
  if i<4 then
   r:=true;
   if (i>242)and(r) then
    form1.Timer1.Enabled:=false;
end;

P.S. я знаю что написано не очень)

[JTG]

Можно банально заюзать ф-цию AnimateWindow
http://msdn.microsoft.com/en-us/libr...69(VS.85).aspx