Special Thanks

Would like to say...
Thanks to Allah SWT, Orang tua, My lovely (Keylila Cheryl) dan anda semua yang luar biasa telah hadir di blog ini. Disini kita mencoba untuk saling berbagi informasi,kontribusi, dan ekspresi yang menjadi sebuah kebebasan kita dalam mengaspirasikan segala aspek dan sudut pandang normatif dan perspektif.

Page Translator

Arabic Korean Japanese Chinese Simplified Russian Portuguese
English French German Spain Italian Dutch   Visitor: 

Kamis, 28 Januari 2010

Membuat splash screen

Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi.
Untuk membuat splash scren tersebut caranya sebagai berikut :
  1. Bikin dulu form utamanya.
  2. Tambahkan form yang akan digunakan sebagai splash screen (dari menu File, pilih New Form). Beri nama form tersebut dengan FrmSplash.
  3. Tambahkan komponen Timer (terletak pada tab Win32), beri nama dengan tmMainTimer.
  4. Tambahkan kode berikut pada events onTimer dari komponen Timer tersebut :

    tmMainTimer.Enabled := False;

  5. Dari menu Project, pilih Options.
  6. Pindah ke tab Forms.
  7. Dari bagian auto create forms akan terlihat dua buah form. Pilih Form yang akan digunakan sebagai splash screen dan klik tombol ">" untuk memindah form splash screen ke bagian Available forms.
  8. Kalau sudah klik OK.
  9. Sekarang dari menu View, pilih Project Source. Pada program utama buatlah form splash screen sebelum inisialisasi dilakukan.
Untuk lebih jelasnya lihat potongan program berikut ini :
program Project1;
uses Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {FrmSplash};

{$R *.RES}
begin
     FrmSplash := TFrmSplash.Create(Application);
     FrmSplash.Show;
     FrmSplash.Update;
     while FrmSplash.tmMainTimer.Enabled do      Application.ProcessMessages;
     Application.Initialize;
     Application.CreateForm(TForm1, Form1);
     FrmSplash.Hide;
     FrmSplash.Free; // menghapus form splash scren dr memory
     Application.Run;
end.

Download Contoh

0 komentar:

Posting Komentar

Gabung disini ya..

È