Membuat form loading di Delphi

Sekarang saya akan sharing ilmu yang sudah umum. yah setidaknya memperbanyak Postingan aja.. 

langsung aja..

siapkan 2 buah Form..
di mana Form pertama akan kita jadikan form loading dan yang kedua akan kita jadikan form akhir setelah loading.

oke. pada Form pertama kita masukan dahulu komponen Timer, kemudian ProgresBar nya juga jangan lupa..

sesudah itu.. pada timer kita klik 2x masukkan script ini

>  procedure TForm1.Timer1Timer(Sender: TObject);

begin




ProgressBar1.Position:=ProgressBar1.Position+1;

if ProgressBar1.Position=100 then




begin




Timer1.Enabled:=False;

Form1.Hide;

Form2.Show;

end;

end;




ok. kalau sudah saya jelaskan .

pada tanda warna Hitam sesuaikan dengan nama form kamu..

pada tanda warna hijau sesuaikan dengan kecepatan loading kamu, lebih kecil dia akan lebih cepat ^^.




pada tanda warna merah untuk nama form loading kamu yang akan di sembunyikan setelah itu pada tanda tanda warna biru adalah nama form akhir yang sudah kamu siapkan sendiri tentunya.. :P




ok kalau sudah coba compile dengan menekan f9











Sumber