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...