Form - animando a abertura do form

Top  Previous  Next

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

 

Dica retirada de http://www.planet-source-code.com/

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