Membuat Animasi Form Horzontal dan Vertikal

Membuat Animasi Form Horzontal dan Vertikal

Animasi merupakan pergerakan suatu object dari suatu tempat ke tempat lain.bidang animasi sering digunakan dalam pembuatan kartun dan pada bidang2 yang lain atau juga dapat digunakan untuk membuat aplikasi yang kita buat menjadilebih menarik...algoritma nya sederhana.
berikut contoh membuat Form animasi Horzontal dan animasi form vertikal dengan Delphi.
-Pertama Buka Delphi nya masing2!!!
-klik file-new-application
-aturlah letak-letak komponen dan propertiesnya hingga menjadi seperti gambar berikut:

-Double Click pada Button1 dan ketikan code berikut:

procedure TForm1.Button1Click(Sender: TObject);
var
lebar:integer;
begin
Form1.Width:=0;
lebar:=0;
repeat
lebar:=lebar+3; //bisa anda ganti angka 3 sesuai keinginan
form1.width:=lebar;
until
lebar>=507;
end;

-kembali pada tab dsigner atau pencet F12,,Double click Button2,lalu ketikan code berikut:

procedure TForm1.Button2Click(Sender: TObject);
var
Tinggi:integer;
begin
Form1.height:=0;
Tinggi:=0;
repeat
Tinggi:=Tinggi+3;//bisa anda ganti angka 3 sesuai keinginan
form1.height:=Tinggi;
until
Tinggi>=354;
end;

-Pencet/tekan F9!!!
-Jadi Dech!!!!
Gampangkan,,coba anda perhatikan dan pelajari algoritma nya.selamat mencoba ^__^