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
