Анимация окна

[Олександр17]

Помогите сделать так чтоби окно ефектно закривалось.. типа етого AnimateWindow(Form1.Handle,1000,aw_ center)
но чтоб закривало форму???

[DomiNick]

Эм?

procedure TForm1.FormShow(Sender: TObject);
begin
AnimateWindow(Form1.Handle, 1000, AW_CENTER);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Form1.Handle, 1000, AW_CENTER Or AW_HIDE);
end;

[Олександр17]

СПС!!!Большое!!!