July 17, 2024

Membuat Loading Progress Menggunakan Delphi

2 min read

Kali ini saya akan membahas bagaimana cara membuat tampilan form loading atau progress bar sebelum masuk ke menu utama program, sehingga tampilan menjadi lebih atraktif.

Langkah 1

Buka Delphi 2007.

Langkah 2

Klik Menu File > New > Pilih VCL Form Application.

delphi1

Langkah 3
Setelah muncul form baru kedalam delphi selanjutnya letakkan komponen berikut ini ke dalam form1 dan form2 kemudian simpan form 1 dengan nama formloading dan form 2 dengan nama formmenuutama ( form 1 untuk form progress bar , form 2 untuk menu utama) :

delphi2

Tampilan Form loading :

delphi3

Tampilan Form Menu Utama dan Pengaturan MainMenu1

delphi4

Langkah ke 4

Hubungkan ke dua form tersebut dengan cara:

Masuk ke form loading > Klik Menu file > Use Unit > Pilih form_menu_utama > klik oke.

delphi5delphi6

Masuk ke form menu utama > Klik Menu File > Use unit > Pilih form_loading > klik oke.

delphi7

Berikut Alur Program Logikanya :

  • Sebelum menu utama muncul, form loading/progress bar akan berjalan sampai penuh.
  • Pada saat progress bar penuh maka form loading akan hide dan selanjutnya akan memunculkan form menu utama.
  • Di form menu utama telah tersedia menu bar exit, sehingga pada saat diklik akan mengeluarkan form menu utama dan juga form loadingnya yang sebelumnya di hide.

Langkah 5
Pada form progress bar Klik 2X pada Timer, setelah muncul halaman editor, tuliskan kode berikut :

delphi9

Pada Saat Form Create Maka Progress bar berjalan sesuai dengan interval yang sudah di setting pada timer. Dan Jika sudah sampai pada batas akhir progress maka timer disable agar tidak melakukan/menjalankan code kembali. kemudian menyembunyikan form loading dan menampilkan form menu utama.

Langkah 6
Kembali ke form menu utama Klik 2X pada menu bar Exit

form menu

Setelah muncul halaman editor, tuliskan kode berikut :

form menuutama

Selanjutnya bisa anda kembangkan sendiri dengan menambahkan form login sebelum memasuki form loading/progress bar. Selamat mencoba….  🙂

Hasil :

Video Hasil1

[flowplayer src=’http://news.palcomtech.com/ftp/artikel-2013/basuki/andri/Video_Hasil_1.flv’ width=500 height=400 border=”1″]

Hasil Lainnya:

Video Hasil 2
[flowplayer src=’http://news.palcomtech.com/ftp/artikel-2013/basuki/andri/Video_Hasil_2.flv’ width=500 height=400]

Leave a Reply

Your email address will not be published. Required fields are marked *

Copyright © All rights reserved. | Newsphere by AF themes.