Script membuat progressbar delphi 7

Ilustrasi progres bar

Script membuat progressbar delphi 7

Properti:

1.Timer.

2.Proggresbar(Win32)

 Masukkan script di bawah ini ke dalam timer,semakin kecil interval semakin cepat proggres bar bergerak.

Script Progressbar delphi 7

procedure TForm2.tmr1Timer(Sender: TObject);
begin

if g1.Progress=100 then
begin Form1.Show;
Form2.Hide;
tmr1.Enabled:=false; end
else begin g1.Progress:=g1.Progress+5; end;
end;

end.