Skip to main content

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.

Popular posts from this blog

Instal Router menggunakan Mikrotik RouterOS

MikroTik RouterOS™ adalah sistem operasi dan yang dapat digunakan untuk menjadikan komputer manjadi router network yang handal, mencakup berbagai fitur lengkap untuk network dan wireless. Kemudian di extrack dan kemudian burn ke CD itu file ISO nya. 1. Install Mikrotik OS – Siapkan PC, minimal Pentium I juga gak papa RAM 64,HD 500M atau pake flash memory 64 – Di server / PC kudu ada minimal 2 ethernet, 1 ke arah luar dan 1 lagi ke Network local – Burn Source CD Mikrotik OS masukan ke CDROM – Boot dari CDROM – Ikuti petunjuk yang ada, gunakan syndrom next-next dan default – Install paket2 utama, lebih baiknya semua packet dengan cara menandainya (mark) – Setelah semua paket ditandai maka untuk menginstallnya tekan “I” – Lama Install normalnya ga sampe 15menit, kalo lebih berarti gagal, ulangi ke step awal – Setelah diinstall beres, PC restart akan muncul tampilan login 2. Setting dasar mikrotik Langkah awal dari semua langkah konfigurasi mikrotik adalah setting ip Hal ini bertujuan ag...
Read more

Membuat group pada laporan

Dengan menggunakan komponen TQRGroup Anda dapat mengelompokkan data berdasarkan kondisi tertentu. Misalnya Anda ingin mengelompokkan nama Company dari tabel Customter.db berdasarkan nama Company yang mempunyai huruf awal yang sama. Untuk itu Anda bisa mencoba contoh di bawah ini: Buat sebuah proyek baru dan tambahkan sebuah report. Tambahkan komponen TTable pada report. Ubah property DatabaseName menjadi DBDEMOS, TableName menjadi Customer dan IndexName menjadi ByCompany. Aktifkan tabel dengan mengatur property Active menjadi True. Tambahkan ...
Read more

Koneksi MySQL dengan Zeos di delphi

ZeosLib adalah sebuah komponen tambahan di delphi yang bisa menangani koneksi kebeberapa database seperti MySQL, SQLLite, Oracle. Namun saya disini hanya akan membahas Koneksi Zeos dengan MySQL tanpa melakukan setting pada Properti di Delphi seperti dibawah ini Untuk melakukan dengan Zeos pastikan Zeos sudah terinstal di Dephi anda, jika sudah terinstal akan tampil pada Pallet Komponen seperti dibawah ini Cara Membuat Koneksi Zeos dengan MySQL    1. Buka delphi anda dan tambahkan komponen ZConnection kedalam Form. seperti gambar dibawah ini 2. Ketikkan Code berikut : INIFiles dibawah USES 3. Setelah itu Double Klik pada Form dan ketikkan code berikut ini di   var settingdatabase : TIniFile; begin settingdatabase := TIniFile.Create(ExtractFilePath(Application.ExeName)+'SettingDatabase.ini'); if (ZConnection.Connected) then    ZConnection.Disconnect;     ZConnection.HostName := settingdatabase.ReadString('koneksi','Hostname',''); //...
Read more