Animação na hora de abrir um form ...
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
Curtidas 0
Respostas
Ewerton Rodrigues
09/03/2011
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?
GOSTEI 0
Leonardo Xavier
09/03/2011
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;
GOSTEI 0