Membuat Splash Screen Dengan Delphi



Apa itu Splash Screen ?

        mungkin bagi kita masih sangan asing dengan yang namanya splash screen. Splash Screen adalah suatu kondisi yang digunakan untuk menggambarkan image atau gambar yang muncul pada saat sebuah aplikasi atau program dalam proses loading. Bentuk Splash Screen tidak selalu berwujud satu image penuh yang akan menutupi seluruh layar monitor, kadang-kadang juga hanya muncul dalam bentuk yang kecil. Splash Screen ini digunakan pada aplikasi sebagai feedback bahwa aplikasi tersebut masih dalam proses loading. Image dalam splash screen ini akan segera menghilang begitu jendela aplikasi utama ini muncul.


Untuk membuat Splash Screen pada Delphi, langkah-langkahnya adalah:

1.  Buat Form pada Project, ketik File>>New>>Form pada Delphi, kemudian simpan form dengan nama file Splash.pas dan namai form dengan nama FrmSplash.

2.  Tambahkan komponen Progress Bar pada Toolbar Win32 seperti pada gambar

      kemudian pasang pada FrmSplash sesuai keinginan anda :

3.  Tambahkan Listing Procedure dibawah ini kedalam FrmSplash

procedure TFrmSplash.StartSplash;

   Var


   i : integer;

begin


    BorderWidth := 0;

    Show;


    Update;

    i := 7500;


    ProgressBar.Max := 0;

    while i <> 0 do


begin

     if i = 7500 then


begin

     ProgressBar.Max := i;


     ProgressBar.Min := 0;

     ProgressBar.Step := 1;


end;




 if ProgressBar.Max <> 0 then

      ProgressBar.StepIt;


      dec(i);

 end;

    update;

end;

4.  Tambahkan listing exception berikut pada file project:

try

    FrmSplash.StartSplash;


    FrmSplash.Close;

finally


    FrmSplash.Free;

 Jadi deh, splash screennya, selamat mencoba...
 

0 komentar

Posting Komentar