Pertama-tama. Silahkan Desain Form
Anda Seperti dibawah ini :
Property Pada Form
BorderStyle : BsNone
Position : poScreenCenter
Komponen yang dibutuhkan :
1 Buah Timer ->> Ubah Interval Timer Jadi 500
1 Buah Progresbar
Komponen Label seperlunya
1 Buah XPManifest
Tambahkan Dua Buah Variabel Global
waktu,pb:integer;
Taruh Kode ini didalam TIMER
pb:=pb+10;
ProgressBar1.Position:=pb;
waktu:=waktu-1;
if pb=100 then
begin
form1.Close;
end;
Hasilnya Kayak Gini :
Property Pada Form
BorderStyle : BsNone
Position : poScreenCenter
Komponen yang dibutuhkan :
1 Buah Timer ->> Ubah Interval Timer Jadi 500
1 Buah Progresbar
Komponen Label seperlunya
1 Buah XPManifest
Tambahkan Dua Buah Variabel Global
waktu,pb:integer;
Taruh Kode ini didalam TIMER
pb:=pb+10;
ProgressBar1.Position:=pb;
waktu:=waktu-1;
if pb=100 then
begin
form1.Close;
end;
Hasilnya Kayak Gini :
0 komentar:
Posting Komentar