Membuat Loading Sederhana Dengan Delphi7

Membuat loading sederhana pada delphi dibutuhkan beberapa komponen yaitu progressbar dan timer. progressbar digunakan untuk menampilkan proses loading. Sedangkan timer digunakan untuk membuat pewaktu pada progressbar.

1. Buatlah desain form seperti dibawah ini.



dengan format desain seperti dibawah ini.

Komponen	Properties	Input Value
form	caption font position	Membuat Loading 8 pt poDesktopCenter
label1	caption font	Loading... 30 pt
timer1	enabled interval	True 1000
progressbar1	smooth max	True 10



Untuk mencari komponen timer berada pada tab System sedangkan untuk progressbar terletak pada tab Win32.

2. Tahap selanjutnya adalah double klik pada komponen timer1 dan tuliskan program dibawah ini

if progressbar1.Position=10 then
  begin
    timer1.Enabled:=false;
    ShowMessage('Selamat Datang');
  end
else
  begin
    progressbar1.Position:=progressbar1.Position+1;
  end;

3. Tahap terakhir adalah klik run atau jalankan maka hasil akan tampak seperti dibawah ini.

Semoga Bermanfaat.

Sumber Terkait:
http://fajar-el-ridikc.blogspot.com/2014/07/delphi7-delphi-membuat-loading-progress.html#.VlqBovkrLIU
https://catataneko.wordpress.com/2012/02/02/delphi-membuat-loading-progress/