Utilizar no evento onClose do formulário:
Efeito 1:
Este efeito faz com que a janela suma gradativamente aumentando sua transparência.
AnimateWindow(Handle, 1000, AW_HIDE+AW_BLEND);
Efeito 2:
Este efeito some com todos os objetos no Form gradativamente. Útil para Forms com muitos controles.
try
while Self.ControlCount>0 do
begin
Self.Controls[0].Free;
Self.Refresh;
Sleep(300);
end;
except
end;
Efeito 3:
Este efeito faz com que o Form suma gradativamente da esquerda para a direita.
AnimateWindow(Handle, 1000, AW_HOR_POSITIVE+AW_HIDE);
Efeito 4:
Este efeito diminui a largura e então a altura do Form gradualmente.
repeat
Self.Width:=Self.Width-3;
Sleep(1);
until Self.ClientWidth<=130;
repeat
Self.Height:=Self.Height-3;
Sleep(1);
until Self.ClientHeight<=10;
Efeito 5:
Este efeito diminui a largura e altura do Form gradualmente.
var a, b: Integer;
begin
repeat
a:=Self.Width;
b:=self.Height;
Self.Width:=Self.Width-3;
Self.Height:=Self.Height-3;
until (Self.Width=a) or (Self.Height=B);
Efeito 6:
Este efeito faz com que o Form desaparesça das bordas para o centro.
AnimateWindow(Handle, 1000, AW_CENTER+AW_HIDE);
Efeito 7:
Este efeito faz com que o Form suma gradativamente da direita para a esquerda.
AnimateWindow(Handle, 1000, AW_HOR_NEGATIVE+AW_HIDE);
Efeito 8:
Este efeito faz com que o Form suma gradativamente de cima para baixo.
AnimateWindow(Handle, 1000, AW_VER_POSITIVE+AW_HIDE);
Efeito 9:
Este efeito faz com que o Form suma gradativamente de baixo para cima.
AnimateWindow(Handle, 1000, AW_VER_NEGATIVE+AW_HIDE);
FONTE: http://www.clubedaprogramacao.com/forum/index.php?/topic/1018-fechando-o-form-com-estilo/?s=d25da00735fffd92fc8a53948fe99381
Nenhum comentário:
Postar um comentário