Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Animando Abertura De Um Form

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Animando Abertura De Um Form

Mensagem por Mr.Positive em Qua Jan 12, 2011 4:26 pm

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

Código:
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:

Código:
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

Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 21
Localização : Recreio
Humor : Feliz !
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Animando Abertura De Um Form

Mensagem por .:JR:. em Sex Mar 30, 2012 10:27 pm

Qual é o efeito? VLW

.:JR:.
Membro
Membro

Mensagens : 8
Agradecimentos : 0
Data de inscrição : 30/03/2012
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum