Animando a Abertura de um Form

[Progr'amador]

ANIMANDO A ABERTURA DE UM FORM

Temos uma API que pode tornar a abertura dos forms mais atrativa!

ex:

Digamos que temos dois forms. Form1 e Form2. O Form1 deve chamar o Form2 (que está setado para auto-criação)!

o código abaixo chama o form2 (a partir de um button) com um efeito bem legal

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.BringToFront;
  form1.Hide;
  AnimateWindow(form2.Handle,2000,AW_CENTER);
  form2.show;
end;

no evento OnHide do form2 coloque:

procedure TForm2.FormHide(Sender: TObject);
begin
  form1.Show;
end;

Lista de Animações:

AW_BLEND //Somente no Windows 2000

AW_CENTER

AW_HOR_POSITIVE

AW_HOR_NEGATIVE

AW_VER_POSITIVE

AW_VER_NEGATIVE

Essa dica foi testada com o Delphi 6. Talvez não funcione com versões anteriores!