Cara membuat Loading Pada Aplikasi Delphi Part 1

Dalam membuat sebuah program di delphi, banyak hal yang sangat menarik untuk di lakukan terutama membuat tampilan sebuah program dengan baik. Contohnya yang akan saya ulas saat ini, Membuat Splash Loading pada program delphi atau bahasa sederhananya membuat loading saat sebuah program atau aplikasi akan di jalankan.

Oke langsung saja...

1. Buka Program Delphi nya di sini saya menggunakan Delphi 7
    Lalu tambahkan scrip berikut.
   

   private
     PnlDown: Boolean;
     {Private declarations}

Untuk lebih jelas liat Screen Shoot berikut :

2. Tambahkan Komponen
     1 Panel
     1 Image
     1 Timer
     1 Progesbar (pakai komponen TMS)
     1 Label

3. Klik 2x pada Timer lalu masukan scrip berikut
 

    procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if PnlDown then
  begin
    VrProgressBar1.Position := VrProgressBar1.Position - 5;
  end
  else
  begin
    VrProgressBar1.Position := VrProgressBar1.Position + 5;
  end;
  if VrProgressBar1.Position = 0 then
    PnlDown := False;
end;


4. Klik 2x pada Progresbar dan masukan scrip berikut

procedure TForm1.VrProgressBar1Change(Sender: TObject);
begin
if VrProgressBar1.Position = 50 then
begin
  lblStatus1.Caption := 'Hallo';
end;
if VrProgressBar1.Position = 70 then
begin
  lblStatus1.Caption := 'Apa Kabar';
end;
if VrProgressBar1.Position = 90 then
begin
  lblStatus1.Caption := 'Tunggu sebentar';
end;

if VrProgressBar1.Position = 100 then
begin
  Sleep(500);
  sPanel1.Hide;
end;
end;


5. Timer kita set dulu
     Interval ganti menjadi 200

    Cukup di sini dulu cara membuat splash loading pada program delphi Part 1.
    Untuk Part 2 akan saya bahas pada postingan selanjutnya.
     



   

Tweet