Fórum Animação na hora de abrir um form ... #396950
09/03/2011
0
Animação na hora de abrir um form
Eu tenho uma aplicação e quero fazer uma animação na hora de abrir
Já fiz mas na hora que abro a animação acontece da seguinte forma
o efeito acontece no canto esquerdo da tela MAS MEU FORM É CENTRALIZADO EU GOSTARIA QUE O EFEITO ACONTECESSE CENTRALIZADO TAMBÉM JÉ TENTEI COLOCAR O FORM.POSITION := ...CENTER ANTES DA NIMAÇÃO MAS NÃO DÁ
{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
}
eu to usando este código aqui mas não tá centralizado o efeito
vou continuar tentando vou tentar mexer no .left e .top
agradeço desde já!
Eu tenho uma aplicação e quero fazer uma animação na hora de abrir
Já fiz mas na hora que abro a animação acontece da seguinte forma
o efeito acontece no canto esquerdo da tela MAS MEU FORM É CENTRALIZADO EU GOSTARIA QUE O EFEITO ACONTECESSE CENTRALIZADO TAMBÉM JÉ TENTEI COLOCAR O FORM.POSITION := ...CENTER ANTES DA NIMAÇÃO MAS NÃO DÁ
{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
}
eu to usando este código aqui mas não tá centralizado o efeito
frmPrincipal.Position := poScreenCenter; AnimateWindow(frmPrincipal.Handle,2000,AW_HOR_POSITIVE);
vou continuar tentando vou tentar mexer no .left e .top
agradeço desde já!
Ewerton Rodrigues
Curtir tópico
+ 0
Responder
Posts
10/03/2011
Ewerton Rodrigues
deu certo mexer no left e no top consiguir colocar no centro
MAS MINHA DÚVIDA É SE FOR EM OUTRO MONITOR MENOR OU MAIOR VAI FICAR EM OUTRO LOCAL?
MAS MINHA DÚVIDA É SE FOR EM OUTRO MONITOR MENOR OU MAIOR VAI FICAR EM OUTRO LOCAL?
Responder
Gostei + 0
10/03/2011
Leonardo Xavier
com toda certeza nao vai ser no meio da tela mas tenho aqui um código que vai resolver seu problema. Tente assim:
procedure TForm1.SpeedButton5Click(Sender: TObject); begin form3.BringToFront; AnimateWindow(form3.Handle,3000,AW_CENTER); form3.visible:=true; end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)