Buscar por:

Animar form sem componente

Código

Você pode animar seu form de uma forma divertida e sem componentes, apenas uma procedure.

/////PROCEDURE PARA EXECUTAR TAREFA

procedure TForm1.Animar_Form(Qtd_quadros,V_sleep,V_width,V_height: integer;status_fechar:Boolean);

var V_sub_width, V_sub_heigth, pt_medio : integer;

begin

with Form1 do begin

  if status_fechar then begin  ////////////FECHANDO O FORM

    V_sub_width := (V_Width div qtd_quadros);

    V_sub_heigth := (V_Height div qtd_quadros);

    pt_medio := 1;

    while pt_medio <= (qtd_quadros div 2) do begin

          pt_medio := pt_medio + 1;

          Top := Top + V_sub_heigth;

          Left := Left + V_sub_width;

          Width := Width - (V_sub_width+10);

          Height := Height - (V_sub_heigth+10);

          Application.ProcessMessages;

          sleep(V_sleep);

    end;

  end else begin  /////////////ABRINDO O FORM NOVAMENTE

    V_sub_width := (V_Width div qtd_quadros);

    V_sub_heigth := (V_Height div qtd_quadros);

    pt_medio := 1;

    while pt_medio <= (qtd_quadros div 2) do begin

          pt_medio := pt_medio + 1;

          Top := Top - V_sub_heigth;

          Left := Left - V_sub_width;

          Width := Width + (V_sub_width + 10);

          Height := Height + (V_sub_heigth + 10);

          Application.ProcessMessages;

          sleep(V_sleep);

    end;

  end;

end;

end;

///////CHAMANDO A PROCEDURE

//////PARA FECHAR O FORM

  Animar_Form(30,10,Form1.Width,Form1.Height, true);

/////PARA ABRIR O FORM

  Animar_Form(30,10,500,200, false);

O 30 -> Quatidade de quadros, eu uso em média 30 quadros

O 10 -> Sleep do projeto ou seja o tempo necessário de intervalo de quadros

O 500 -> Tamanho do form em width

O 200 -> Tamanho do form em Height

Boa Sorte