Pages

Kamis, 24 Januari 2013

Membuat Loding seperti Loading Smadav di Delphi 07


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 :

0 komentar:

Posting Komentar

Comments

Pengunjung