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;
beginProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position = 100 then
begin
Form2.show;
Timer1.Enabled := False;
Form1.Visible:= False;
end;
end;
end.
end;
end.
Mudah-mudahan bermanfaat dengan baik.
form1 jadi program hantu alias tidak kelihatan..
BalasHapusketika form1 loding selesai otomatis form2 muncul dan form1 itu kemana ..? dari codingnya form1 di visiblenya jadi false itu artinya formnya jadi hantu, dan ketika form2 yang muncul di close form1 satu itu masih tetap terbuka loh belum tertup..
coba anda jalankan program exenya langsung tanpa membuka delphi, kemudian setelah loding anda tutup form2. setelah anda menutup form tersebut lakukan penghapusan pada file program tersebut, lihat apa yang terjadi..
file tidak dapat dihapus..
betul apa kata om irwant... meskipun form2 udah ditutup tapi masih tetep running terus programnya,,,
BalasHapusharusnya gimana yah? sekalian tambahin label bertuliskan
loading.
loading..
loading...
pake ini form2.showmodal. hilangkan kode form1.visible:=false; atau kalo mau ketika form2 langsung close > pake ini di timer codingnya > form1.destroy
BalasHapus