Buscar por:

Criar slides igual ao power point no delphi

Código

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;

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