Animando Abertura De Um Form
2 participantes
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
Animando Abertura De Um Form
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
no evento OnHide do form2 coloque:
Lista de Animações:
AW_BLEND //Somente no Windows 2000
AW_CENTER
AW_HOR_POSITIVE
AW_HOR_NEGATIVE
AW_VER_POSITIVE
AW_VER_NEGATIVE
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
- Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 29
Localização : Recreio
Humor : Feliz !
Re: Animando Abertura De Um Form
Qual é o efeito? VLW
.:JR:.- Membro
- Mensagens : 8
Agradecimentos : 0
Data de inscrição : 30/03/2012
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|