Membuat Splash Screen

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

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

Tambahkan komponen Progress Bar pada Toolbar Win32 seperti pada gambar

, kemudian pasang pada FrmSplash sesuai keinginan anda :

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;

Tambahkan listing exception berikut pada file project:

try
    FrmSplash.StartSplash;
    FrmSplash.Close;
finally
    FrmSplash.Free;

Jadi deh, splash screennya, selamat mencoba:)