Animar Fechamento Do Form

[Mauro Jr]

Gurizada, como faço para animar o fechamento do form?

O que quero é gerar um efeito semelhante ao MSN Messenger, ou seja, o form vai se fechando aos poucos, de cima para baixo.

Novamente agradeço a atenção dos parceiros!

Mauro Junior

[s3c]

Olá, seria ± isso ?

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  While (Height > 50) do
  begin
    Height := Height - 10;
    Top    := Top    + 10;
    Sleep(5);
    Application.ProcessMessages;
  end;
end;

[Progr'amador]

Olá s3c,

poderia até implementar esse código assim:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  While (Height > 50) do 
  begin
    Height := Height - 10;
    Top    := Top    + 10;
    Width  := Width  - 10;
    Left   := Left   + 10;
    Sleep(5);
    Application.ProcessMessages;
  end;
end;

FWL!

abs.

[Mauro Jr]

Bah gurizada, valeu pela dica.

Abraços,

Mauro Junior

[s3c]

É isso aí !!!