Delphi Efeitos ao fechar seu programa em Delphi

[lsh]

Salve salve galera!
então Delphi é dms *-* e isso eu sei haha
Andei estudando e uma das coisas legais vou repassando
Se você sempre quis fechar o seu form com "estilo" haha
Basta inserir os seguintes códigos
Adicionar o código no form1
Como fazer ele fechar meio que transparente?

AnimateWindow(Handle, 1000, AW_HIDE+AW_BLEND);  

Testou? Legal né!? pra mim é o melhor ^^

E se você quer fechar coisa por coisa , exemplo button, label, button e dps o form? Adicione o seguinte código

try 
  while Self.ControlCount>0 do 
   begin 
    Self.Controls[0].Free; 
    Self.Refresh; 
    Sleep(300); 
   end; 
 except 
 end;  

Como fechar o form da esquerda pra direita ?
Simples adicione ocódigo

 AnimateWindow(Handle, 1000, AW_HOR_POSITIVE+AW_HIDE);  

Esse próximo agora é mto legal mesmo! Ele fecha de lado dps fecha em cima ^^

repeat 
  Self.Width:=Self.Width-3; 
  Sleep(1); 
 until Self.ClientWidth<=130; 
 
 repeat 
  Self.Height:=Self.Height-3; 
  Sleep(1); 
 until Self.ClientHeight<=10;  

creditos : irmão n3tt3rz

[Gr1m R34p3r]

Ótimo trabalho! ^^