sexta-feira, 8 de junho de 2012

Fechar o formulário com estilos diferentes

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