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