Membuat Form Loading Splash Screen dengan Delphi

Form Splash Screen adalah sebuah form yang pertama kali dijalankan pada saat aplikasi dibuka. Biasanya Form ini berisi seputar informasi yang sedang dijalankan sebelum form utama ditampilkan. contohnya dapat anda lihat ketika menjalankan IDE Delphi 7 atau Delphi XE5 anda. maka yang pertama kali muncul itulah yang disebut splash screen.

Berangkat dari hal itu saya tertarik untuk membuat postingan ini. tentang cara membuat form splash screen tersebut. Pada contoh ini saya memiliki 3 buat form dimana form pertama saya gunakan sebagai splash screen dan form kedua sebagai form utama. sedangkan form 3 sebagai form tambahan.

1. Buka File Delphi Projek anda dengan menekan CTRL+F11

2. Tambahakn SysUtils dalam Uses projek tersebut

3. Langkah terakhir silahkan ganti code setelah begin dan sebelum end. pada file projek tersebut dengan code berikut.

// Splash Screen Delphi
begin
  SplashScreen := TSplashScreen.Create(Application);
  try
    SplashScreen.Show;
    Application.Initialize;
    SplashScreen.Update;
    // Sesuaikan dengan Jumlah dan Nama Form yang digunakan
    Application.CreateForm(TForm2, Form2);
    Application.CreateForm(TForm3, Form3);
    Sleep(5000); // Sesuaikan dengan keinginan anda
    SplashScreen.Hide;
    finally
    SplashScreen.Free;
    end;
    Application.Run;
    end;

4. Sebelum melakukan langkah ketiga diatas, Pastikan anda telah mengganti nama form1 dengan nama SplashScreen. sedangkan untuk form kedua dan ketiga biarkan saja.

Jika anda membutuhkan contoh projek saya. anda dapat mendownloadnya disini. Happy Coding. :)