Membuat Splashscreen

Splashscreen merupakan tampilan selamat datang yang singkat ketika sebuah program dijalankan. Ketika pada proses splashscreen ini dapat juga dilakukan pengecekan-pengecekan terhadap file-file yang dibutuhkan oleh program yang dijalankan, tapi pada contoh ini saya hanya akan melakukan animasi saja. Berikut contoh pembuatan splashscreen dengan menggunakan delphi 7.

1. Buat form baru dengan cara masuk ke menu File | New | Form
2. Masuk pada menu Project | Option
   Pada bagian tab Form ini form yang baru dibuat dipindahkan ke bagian available forms agar tidak membebani memori.
3. Ubah Properties ini dari Form baru tersebut
   Name: SplashScreen
   BorderStyle: bsNone
   Position : poScreenCenter
4. Masukkan komponen timer dan progressbar pada form SplashScreen tersebut
5. Setting property interval dari Timer menjadi 100 dan enabled menjadi false
   
6. Pada even form onCreate ketikkan kode ini untuk menghilangkan tampilan form:

   brush.Style:=bsClear;

7. Pada even komponen Timer tersebut ketik kode ini:

   ProgressBar1.Position:=ProgressBar1.Position+10;
   if ProgressBar1.Position=100 then begin
   timer1.enabled:=false;
   end;

8. Pada menu Project | View Source ubah kode yang ada menjadi seperti berikut ini:

   splashScreen := TsplashScreen.Create(Application);
   try
   splashScreen.Show;
   Application.Initialize;
   splashScreen.Update;
   while splashScreen.timer1.Enabled do
   Application.ProcessMessages;
   Application.CreateForm(TForm1, Form1);
   SplashScreen.Hide;
   finally
   SplashScreen.Free;
   end;
   Application.Run;

9. Simpan dan jalankan