Pemograman Delphi 7 Part 9

Gambar ini adalah hasil dari tutorial dibawah ini

Yooo..... sekarang kita akan membuat proses loading pada delphi 7 / atau aplikasi loading

untuk component nya saya menggunakan PROGRESSBAR yang berada pada palet WIN32 dan

untuk component TIMER nya berada pada palet SYSTEM lihat gambar di abwah ini :

silakan design form nya sesuai keinginan kawan - kawan .. yang penting rapih .. :p 

setelah beres design silakan klik 2 kali pada component TIMER nya dan ketik koding dibawah ini :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

     ProgressBar1.Position:=ProgressBar1.Position+3;

     if ProgressBar1.Position=100then

     begin

            Timer1.Enabled:=False;

            ShowMessage('Loading Sukses');

      end; 

end;

nah klo sudah di ketik coba jalankan aplikasinya dengan menekan atau memencet F9 dan lihat hasilnya .. :D

Create : Abednego,S.T