Membuat SPLASH LOADING Untuk Mempercantik Tool

Halo kawan2 , jmp lagi dgn ' The Nubitol '
Kali ini kita akan membuat  SPLASH LOADING

Buat gaya2an aja di tool nya pas awal di buka,.

bgmn kelanjutanya,,yuk ,..tarik manngg...

sprt biasa,. buka D7 nya dl,.

trs tmbh kan :

Type :

private
   PnlDown: Boolean;
{ Private declarations }

1 panel
1 image
1 timer
1 progresbar, di sini sy makai dr komp tms
1 label

timer1, klik 2x , masukan :

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;

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 := 'The Nubitol Di Sini';
end;

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

Kita Tester  :D

Timer kita set dulu

Interval ksh 200 aja

Bgmn , mudah bukan...
smp jumpa di kesempatan lainya,.
jgn lupa di subscribe,.

Cherrrssss.............

Untuk lebih jelas nya,simak video tutorial di bawah ini