Buscar por:

Animando a abertura de um form

Código

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!