Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Animando a Abertura de um Form


Surfistinha£
 Compartilhar

Posts Recomendados

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

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.