Membuat Aplikasi Loading Menggunakan Delphi 7

Assalamualaikum Wr. Wb Teman-teman yang disitu :)

Kita ketemu lagi nih dengan tema beda lagi beda lagi, sekaramg saya akan berbagi tentang membuat aplikasi loading menggunakan delphi 7, OK  langsung ajalah ya biar gk kelamaan :

1. Siapkan Aplikasi Borland Delphi 7 anda, kemudian siapkan 2 Form, dimana Form 1 untuk aplikasi loadingnya dan form 2 berfungsi untuk hasil dari Form loading tersebut, sebut saja Form 2 ini sebagai Form Login.

2. Pada Form 1/ Form Loading masukan menu Progress Bar 1 dan Timer 1.

3. Kemudian Klik 2 kali pada menu timer 1 dan masukkan coding seperti dibawah ini :

procedure TForm1.Timer1Timer(Sender: TObject);
beginProgressBar1.Position := ProgressBar1.Position + 1;

if ProgressBar1.Position = 100 then

begin

Form2.show;

Timer1.Enabled := False;

Form1.Visible:= False;

end;
end;
end.

(PERHATIAN!!! Nilai interval pada box properties di Timer1 itu terserah anda tetapi jika nilai intervalnya kecil maka loadingnya akan cepat, begitu juga sebaliknya jika nilai intervalnya besar maka loadingnya akan lambat).

Mudah-mudahan bermanfaat dengan baik, kurang lebihnya saya minta maaf untuk para master hehe :P

-TERIMA KASIH-