SELAMAT DATANG

ANDA

Saturday, April 16, 2011

MEMBUAT KOTAK LOADING DENGAN DELPHI

Ada beberapa langkah yang harus dilakukan:
1.       1.Masuk pada area form Delphi
2.       2.Pada form, rubah tampilannya menjadi seperti gambar berikut





1.      3.  Beberapa properties pada project yang harus di rubah:
Form1
-
Label1
Caption : -
AutoSize: true
Enabled : false
Timer1
-

2.      4.  Pada unit1 tulislah listening program:
Procedure form1 event formcreate
Label1.Enabled:=true;
Label1.Width:=0;
Timer1.Enabled:=True;
Timer1.Interval:=15;
label1.Height:=33;
procedure timer1 event timer
label1.Width:=Label1.Width+1;
if label1.Width= 521 then timer1.Enabled:=false;

 
1.       5.Save dan coba jalankan
2.       6.Selamat mencoba

No comments: