Contoh Program Delphi dengan ProgressBar

nah.... untuk kali ini, saya akan membahas tentang progressbar yang ada di delphi, ya biasa di kenal dengan loading gitu.....
untuk komponen ini bisa di dapatkan pada tab win32 di delphil
nah langkah untuk membuat program ini, di butuhkan 2 form, 1 Timer, dan 1 progressBar.
form pertama untuk progressbar dan timernya, sedangkan form2 di hide dulu.
untuk koding di timer seperti ini :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ProgressBar1.Position = 100 then
begin
Timer1.Enabled:=False;
Form1.Hide;
form2.show;
end
else
begin
ProgressBar1.Position :=ProgressBar1.Position + 5;
end;
end;

end.

untuk angka 100 (warna merah) itu menunjukkan panjang progressbarnya.

screenshoot program..




bagi yang mau download, silahkan klik disini.