Pois é possível sim. Existem efeitos tipo os que são aplicados nos Slides do PowerPoint, que funcionam aqui também.
Essa dica exibe um Panel que mostrará uma mensagem e aparecerá na horizontal, da esquerda para a direita.
E um formulario (form2) sendo exibido do meio para
Essa dica exibe um Panel que mostrará uma mensagem e aparecerá na horizontal, da esquerda para a direita.
E um formulario (form2) sendo exibido do meio para
fora.
Tudo que precisa é adicionar um botão no formulário principal e inserir a codificação.
Utilizados:
TButton = Button1 (Paleta de Componentes Standart)
TPanel = Panel1 (Paleta de Componentes Standart)
Um novo formulario = form2.
uses
Windows, Messages, SysUtils, Variantes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
...
implementation
uses Unit2;
...
procedure TForm1.FormShow(Sender: TObject);
begin
Panel1.Visible : = False;
end;
procedure TButton1Click(Sender: TObject);
begin
//---------------------------------------------------------
//Exibindo Efeito em Panel.
//---------------------------------------------------------
Panel1.Caption := 'Exibindo Efeito';
AnimateWindow(Panel1.Handle,3000,AW_HOR_POSITIVE );
Panel1.Visible := True;
//---------------------------------------------------------
//Exibindo Efeito em Formulário 2.
//---------------------------------------------------------
form2.BringToFront;
form1.Hide;
AnimateWindow(form2.Handle,2000,AW_CENTER);
form2.show;
end;
{Segue abaixo outras formas de Animações:
AW_BLEND //Somente no Windows 2000
AW_CENTER //Abre o objeto do meio pra fora
AW_HOR_POSITIVE //Abre o objeto na horizontal, da direita para a esquerda
AW_HOR_NEGATIVE //Abre o objeto na horizontal, da esquerda para a direita
AW_VER_POSITIVE //Abre o objeto na vertical, de cima para baixo
AW_VER_NEGATIVE //Abre o objeto na vertical, de baixo para cima
}
end.
Tudo que precisa é adicionar um botão no formulário principal e inserir a codificação.
Utilizados:
TButton = Button1 (Paleta de Componentes Standart)
TPanel = Panel1 (Paleta de Componentes Standart)
Um novo formulario = form2.
uses
Windows, Messages, SysUtils, Variantes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
...
implementation
uses Unit2;
...
procedure TForm1.FormShow(Sender: TObject);
begin
Panel1.Visible : = False;
end;
procedure TButton1Click(Sender: TObject);
begin
//---------------------------------------------------------
//Exibindo Efeito em Panel.
//---------------------------------------------------------
Panel1.Caption := 'Exibindo Efeito';
AnimateWindow(Panel1.Handle,3000,AW_HOR_POSITIVE );
Panel1.Visible := True;
//---------------------------------------------------------
//Exibindo Efeito em Formulário 2.
//---------------------------------------------------------
form2.BringToFront;
form1.Hide;
AnimateWindow(form2.Handle,2000,AW_CENTER);
form2.show;
end;
{Segue abaixo outras formas de Animações:
AW_BLEND //Somente no Windows 2000
AW_CENTER //Abre o objeto do meio pra fora
AW_HOR_POSITIVE //Abre o objeto na horizontal, da direita para a esquerda
AW_HOR_NEGATIVE //Abre o objeto na horizontal, da esquerda para a direita
AW_VER_POSITIVE //Abre o objeto na vertical, de cima para baixo
AW_VER_NEGATIVE //Abre o objeto na vertical, de baixo para cima
}
end.
**********************************************************************
Faça o download do arquivo: Criando Slides no Delphi.rar
**********************************************************************
Faça o download do arquivo: Criando Slides no Delphi.rar
**********************************************************************
"Escolha um trabalho que você goste de fazer
e não terá que trabalhar um único dia da sua vida." Confúcio.
e não terá que trabalhar um único dia da sua vida." Confúcio.
0 comentários:
Postar um comentário