Terima kasih atas kesempatan anda untuk mengunjungi website kami ini. Kami adalah Toko Online (Usaha Wah Yang Sah) yang didirikan untuk menjawab kebutuhan masyarakat dan menyediakan berbagai kebutuhan akan produk-produk fashion yang anda butuhkan. kami berusaha terus menambah produk-produk kami, sehingga benar - benar dapat memenuhi kebutuhan rekan-rekan semua. kami juga bekerja sama dengan para Importir, Pabrik dan Distributor utama sehingga kami dapat memberikan harga murah yang terbaik. Anda dapat membeli produk-produk yang kami sediakan lewat situs ini dengan cara yang praktis dan mudah, jika anda melakukan order, akan segera kami tindaklanjuti. Satu hal, jika anda puas dengan pelayanan kami, maka beritahu teman anda, tetapi jika anda kecewa dengan pelayanan kami, maka beritahu kami.
 

Belajar Membuat Splash Screen

Sebelum memulai Belajar cara mebuat Spalash Screen, Ada baiknya kita mengetahui terlebih dahulu apa itu 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. pada kesempatan ini saya akan membahas bagai mana membuat sebuah splash screen dengan mengunakan Delphi 7
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 lalu copy paste di form Delphi coba RUN dan lihat hasil kerja kamu :
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.

0 komentar:

Posting Komentar