ActiveDelphi

[ginogam]

Foi mostrada uma dica aqui no Activedelphi para animar um Form.
A dica era mais ou menos assim: Um botão era colocado num Form1 e no evento deste mostrava-se a animação num Form2. Fiz e testei isto e está funcionando, vejam o código abaixo:
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.BringToFront;
form1.Hide;
animatewindow(form2.Handle,2000,AW_Center);
form2.Show;
{******************************************************************************}
{AW_Center - abre o formulário do meio para fora}
{AW_Hor_Positice - 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}
{******************************************************************************}
end;

Bem, o problema é o seguinte: Depois que o executável for criado e testado, só é possível correr o executável através do Delphi novamente, depois de reiniciar o computador! Fora o parâmetro AW_Center, há mais quatro parâmetros para quem quiser testar e ver o que acontece. O problema está aí, vocês terão que reiniciar o computador mais quatro vezes para testar todos os parâmetros e assim ver todos os efeitos! Não adianta fechar a aplicação e depois alterá-la para executar novamente que vai dar pau! Acredito que o problema esteja na liberação da memória. Se alguém tiver a paciência de testar estes exemplos e puder explicar como acertar isto agradeço! T+