Cara Membuat Animasi Sederhana Di Delphi 7




Selamat siang agan-agan.Pada kesempatan kali ini , saya akan membahas mengenai Cara Membuat Animasi Sederhana Di Delphi 7.Apakah bisa !? Bisa dong , walaupun gak secanggih flash.Animasi yang saya maksud ialah menggerakan komponen button ketika run-time.Sangat sederhana , namun cukup sebagai pemanis untuk program yang akan kita buat nantinya.Seperti apa cara membuatnya !? Makanya terus baca tutorial ini sampai selesai sembari di praktekan.Seperti biasa , buka borland delphi anda.
Setting form1 properties width menjadi 450.Tambahkan 1 komponen button rubah properties captionnya menjadi 'kanan'.Properties widthnya menjadi 90 dan properties left nya menjadi 30.Tambahkan juga 1 buah komponen timer , rubah properties intervalnya menjadi 10 dan properties enablednya false.Double-klik komponen timer1 dan tambahkan kode berikut



  1. procedure TForm1.Timer1Timer(Sender: TObject);  
  2. var a,b:Integer;  
  3. begin  
  4.   if Button1.Caption='kanan' then  
  5.     begin  
  6.       a :=  Button1.Left;  
  7.       b := a + 10;  
  8.       Button1.Left := b;  
  9.       if Button1.Left>=300 then  
  10.         begin  
  11.           Button1.Caption:='kiri';  
  12.           Timer1.Enabled := false;  
  13.         end;  
  14.     end  
  15.   else  
  16.     begin  
  17.       a :=  Button1.Left;  
  18.       b := a - 10;  
  19.       Button1.Left := b;  
  20.       if Button1.Left<=30 then  
  21.         begin  
  22.           Timer1.Enabled := false;  
  23.           Button1.Caption:='kanan';  
  24.         end;  
  25.     end;  
  26. end;  

Kode diatas berfungsi untuk menggerakan button ke kiri dan ke kanan.Dengan menambahkan properties leftnya secara berkala sampai pada nilai 300.Dan menguranginya sampai dengan 30.Double-klik button1 dan tambahkan kode berikut.


  1. procedure TForm1.Button1Click(Sender: TObject);  
  2. begin  
  3.   Timer1.Enabled:=true;  
  4. end;  

Lalu jalankan program anda.Klik button1 dan harusnya button1 tersebut bergerak ke samping kanan.Setelah berhenti dan di klik lagi maka akan bergerak ke samping kiri.Sangat mudah bukan !? Cukup sekian tutorial kali ini semoga bermanfaat.

0 Response to " Cara Membuat Animasi Sederhana Di Delphi 7 "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!