Membuat loading dengan borland delphi

Saya anggap anda sudah menginstal borland delphi pada PC/Laptop anda.
Berikut ini langkah-langkah untuk membuatnya:
1. Buka Delphi anda, kalau saya memakai borland delphi 7
2. Buat 2 buah form
    (1) form buat loading dengan nama "Form1"
    (2) form akhir "yang akan tampil setelah proses loading selesai" dengan nama "Form2"
3. Berikan komponen 'timer' pada "Form1", kemudian ubah value intervalnya pada menu properties menjadi "100"
    Jika ingin loadingnya lebih cepat, nominal value intervalnya diperkecil
4. Masih pada "Form1", tambahkan progress bar dengan nama "ProgressBar1"
5. Pada "Form2" tambahkan 'label', ganti namanya dengan 'Selamat Datang'
6. Klik dua kali pada timernya, kemudian masukkan kode berikut 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;
end. 

7. Nah, sekarang anda bisa menjalankannya dengan pilih tombol "run" atau tekan "F9"

Sekian, semoga bermanfaat ##
Selamat mencoba..
 

5 comments:

what are you comments?

English
French
German
Spain
Italian
Dutch
Russian
Brazil
Japanese
Korean
Arabic
Chinese Simplified

Open Cbox

Updates Via E-Mail