Form com efeito de slides
14/05/2003
0
Seria possível, num evento onshow de um form
Ele ser mostrado com efeitos tipo o Power Point ?
Ex.: ´ Dissolvendo, escurecendo, vindo de cima para baixo ou
vice-versa, entre outros efeitos ???´
Se caso não for possível, tem como eu chamar no meu programa um arquivo externo de slides do Power Point ???
Ele ser mostrado com efeitos tipo o Power Point ?
Ex.: ´ Dissolvendo, escurecendo, vindo de cima para baixo ou
vice-versa, entre outros efeitos ???´
Se caso não for possível, tem como eu chamar no meu programa um arquivo externo de slides do Power Point ???
Lbsystems
Curtir tópico
+ 0
Responder
Posts
14/05/2003
Desander
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!
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!
Responder
Clique aqui para fazer login e interagir na Comunidade :)