>
1. Form Loading
procedure TfLoading.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
if ProgressBar1.Position=100 then
begin
fLogin.show; //menampilkan form2 setelah progressbar mencapai posisi 100
Timer1.Enabled:=false; // mematikan timer sehingga tidak terjadi loop
fLoading.hide; //menyembunyikan form1
end;
end;
procedure TfLoading.FormCreate(Sender: TObject);
begin
ProgressBar1.Position:=0; //posisi awal progressbar diset 0
Timer1.Interval:=10 // kecepatan load untuk progressbar
end;
end.
2. Form Login
