Form Animasi

Postingan kali ini saya akan memostingkan cara untuk membuat animasi form saat form dijalankan dan saat di tutup berikut langkahnya:
Buatlah procedure baru seperti dibawah ini:
Procedure Animasi(Pilih : Byte);
Var  i, j, BandingLebar, BandingTinggi, myWidth, myHeight: LongInt;
Const Pembagi : LongInt = 200;
  begin

myWidth := Form1.Width ;

myHeight := Form1.Height;

Form1.AlphaBlend := True;

BandingLebar := myWidth Div Pembagi;

BandingTinggi := myHeight Div Pembagi;

For i := 1 To Pembagi Do

  Begin

    If Pilih = 1 Then

      Begin

        Form1.AlphaBlendValue := i + 55;

        Form1.Width := BandingLebar * i;

        Form1.Height := BandingTinggi * i;

      End

    Else

      

Begin

        Form1.AlphaBlendValue := 255 -(i + 55);

        Form1.Width := BandingLebar * (pembagi - i);

        Form1.Height := BandingTinggi * (pembagi - i);

      End;

        Form1.Left := (Screen.Width - Form1.Width) div 2;

        Form1.Top:=(Screen.Height - Form1.Height) div 2;

        Form1.Show;

    End;

End;

setelah itu klik form1 kemudian pada object Inspector pilih event >> doubleclik oncreate>>masukkan rumus berikut

procedure TForm1.FormCreate(Sender: TObject);

begin

    Animasi (1);

end;

klik form1 kemudian pada object Inspector pilih event >> doubleclik onclose>>masukkan rumus berikut

procedure TForm1.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

    Animasi (2);

end;

Semoga bermanfaat dan jika pengen lihat hasilnya bisa mendapatkan contohnya disini