Membuat form loading pada Delphi 7.0

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

langsung aja..

siapkan 2 buah Form..
dimana 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, kemudia 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=100then




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, lebihkecil 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