Membuat Animasi Form Dengan Delphi

Untuk artikel kali ini saya akan coba berexperiment masih dengan delphi yaitu membuat animasi dimana maksud dari animasi disini saya akan coba untuk menampilkan form dengan suatu efek animasi pada saat ditampilkan.Jadi apabila membuat suatu projek dan coba tambahkan dengan sebuah efek animasi ini maka projek kita akan terlihat indah dengan adanya suatu hiasan atau efek animasi dan juga tentunya mungkin tidak akan membosankan.

Animasi form

Langkah Pembuatan

Baiklah sekarang saya akan langsung ke cara pembuatannya dimana yang pertama biasa buka dulu aplikasi delphinya,untuk experiment kali ini saya akan coba dengan menggunakan 2 buah form yang mana pada form2 saya akan coba tampilkan dengan animasi sesuai dengan artikel kali ini sedangkan untuk form1 nya adalah tombol-tombol untuk beberapa contoh tampilan animasi untuk menampilkan form2 tersebut.

Tambahan Komponen Form1

Pada Form1 disini saya coba menambahkan 4 buah komponen button kemudian tiap-tiap komponen button saya coba ganti caption nya pada object inspector dengan :

- Button1 ganti Caption dengan BLEND.

- Button2 ganti Caption dengan CENTER.

- Button3 ganti Caption dengan HOR POSITIVE.

- Button4 ganti Caption dengan CLOSE.

Penambahan Komponen di Form1

Tambahan Komponen Form2

Dan untuk form2 nya saya hanya menambahkan 1 buah komponen image dan 1 buah komponen label

Penambahan Komponen Pada Form2

Koding

Setelah penambahan komponen-komponen pada masing-masing form lanjut ke kode editor untuk membuat procedure nya atau kodingnya untuk tiap-tiap button disini yang pertama coba masukan atau tambahkan dahulu unit2 pada uses yang mana untuk cara menambahkan unit pada uses bagi teman-teman yang belum tahu bisa dibaca pada postingan saya sebelumnya yaitu pada cara membuka dan menutup aplikasi di delphi.

Koding Button BLEND

Setelah unit2 ditambahkan di uses lanjut dengan mengklik 2X button1 untuk membuat procedurenya dan coba buat procedurenya seperti dibawah ini

procedure TForm1.Button1Click(Sender: TObject);
begin
  AnimateWindow(Form2.Handle, 2000, AW_BLEND);
  Form2.Show;
end;

Koding Button CENTER

Lanjut lagi ke button2 yaitu untuk membuat procedure untuk Button Center langkahnya sama dengan mengklik 2X button2 dan procedurenya seperti berikut

procedure TForm1.Button2Click(Sender: TObject);
begin
  AnimateWindow(Form2.Handle, 2000, AW_CENTER);
  Form2.Show;
end;

Koding Button HOR POSITIVE

Dan disini button3 sebagai button Hor positive saya klik 2X untuk membuat procedurenya saya coba buat procedurenya seperti dibawah ini

procedure TForm1.Button3Click(Sender: TObject);
begin
  AnimateWindow(Form2.Handle, 2000, AW_HOR_POSITIVE);
  Form2.Show;
end;

Koding Button CLOSE

Terakhir untuk button4 atau disini sebagai button Close saya buat procedurenya seperti berikut

procedure TForm1.Button4Click(Sender: TObject);
begin
  Form2.Hide;
end;

Tes Run Projek

Setelah pengkodingan semua diatas dilakukan coba tekan tombol Run yang ada pada menu bar di delphi atau tekan F9 pada keyboard untuk melihat hasil projek tersebut dan berikut dibawah adalah hasil dari tes projek ini

Tes Run Projek

Demikian untuk artikel kali ini sesuai dengan judul yaitu cara membuat animasi form dengan delphi semoga bermanfaat bagi teman-teman dan bisa teman-teman kembangkan lagi lebih lanjut,dan nantikan lagi experiment saya selanjutnya.

Oke Salam Blogger And Happy Koding.