Aplikasi Menu dan Animasi Pada Delphi

Hanya mau share kali aja ada yang butuh . Aplikasi sederhana tentang menu dan animasi pada borland delphi. Berikut adalah langkah-langkahnya :

1. Buka Borland Delphi dan buat aplikasi baru.
2. Pada Form1 masukan komponen berikut dari component pallete :
   - Label
   - Menu
   - Timer (terletak pada tab System)
   

   Delphi Timer Pic 1
3. Kemudian pada klik ganda pada Timer dan masukan koding:

   procedure TForm1.Timer1Timer(Sender: TObject);
   begin
   if Label1.Left = -240 then Label1.Left:=465;
   Label1.Left:= Label1.Left -1;
   end;

4. Buat menu seperti tampilan di bawah ini dengan cara klik ganda pada objek menu lalu mengubah caption-captionnya
   

   Delphi Timer Pic 2
5. Masukan kode pada menu Exit:

   procedure TForm1.Exit1Click(Sender: TObject);
   begin
   Application.Terminate ;
   end;

6. Lalu tambahkan Form baru. Pilih File-> New-> Form
   

   Delphi Timer Pic 3
7. Tambahkan komponen pada Form2:
   - Label
   - Timer (terletak pada tab System)
   

   Delphi Timer Pic 4
8. Pada Timer di Form2 masukan kode:

   procedure TForm2.Timer1Timer(Sender: TObject);
   begin
   Label1.Caption:=formatdatetime('"Tanggal : "dd/mm/yyyy',now)+chr(13)+formatdatetime('"Pukul : "hh:nn:ss',now);
   end;
   
   procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
   begin
   Form1.Show;
   end;

9. Kembali ke Form1 dan klik pada menu Tampilkan Form 2 kemudian masukan kode:

   procedure TForm1.ampilkanForm21Click(Sender: TObject);
   begin
   Form2.Show;
   Form1.Hide;
   end;
   

   

   Delphi Timer Pic 5
10. kemudian Run/ Jalankan program dengan menekan F9. Jika ada Popup window seperti dibawah ini, pilih Yes Saja..
    

    Delphi Timer Pic 6

Jika benar semua maka aplikasi akan berjalan seperti ini :

Delphi Timer Output

#CATATAN :

• Dalam tutorial ini Saya menggunakan Windows 7 dan Borland Delphi 7
• Saya tidak mengubah Name atau nama variabel dari setiap komponen.