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! ^^