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