Плавное открытие и закрытие формы..

Для достижения этого эффекта необходимо в события формы OnCreate и OnClose добавить следующий код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

AnimateWindow(Handle, 1000, AW_HIDE or AW_BLEND)

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

AnimateWindow(Handle, 1000, AW_BLEND)

end;

Где 1000 - это длительность открытия и закрытия,можно изменить по своему усмотрению.