Dicas - Criando slides no Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Nesta dica veremos como fazer para criar aplicações Delphi com efeitos parecidos com os criados no PowerPoint.

Criando slides no Delphi

 

Nesta dica veremos como fazer para criar aplicações Delphi com efeitos parecidos com os criados no PowerPoint. Para fazer isso, utilize o código mostrado a seguir:

Criação dos slides

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  form2.BringToFront;

  form1.Hide;

  AnimateWindow(form2.Handle,2000,AW_CENTER);

  form2.show;

end;

 

{Abaixo estão outras formas de animações:

AW_BLEND //Somente no Windows 2000

AW_CENTER //Abre o formulário do meio pra fora

AW_HOR_POSITIVE //Abre o formulário na horizontal, da direita para a esquerda   

AW_HOR_NEGATIVE//Abre o formulário na horizontal, da esquerda para a direita

AW_VER_POSITIVE//Abre o formulário na vertical, de cima para baixo

AW_VER_NEGATIVE}//Abre o formulário na vertical, de baixo para cima

 

por Thiago Sacramento

webmaster@clubedelphi.com.br

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?