CARA MUDAH MEMBUAT LOADING PROGRESS PADA DELPHI

Salam blogger…..pada postingan saya kali ini saya akan share tentang tutorial sederhana bagaimana cara membuat loading progress pada project aplikasi Delphi, loading proggess biasanya digunakan diawal pada saat menajalankan aplikasi. Progress ini digunakan untuk memberikan informasi tentang proses proses yang dijalankan sebelum membuka tampilan utama aplikasi. disini saya akan menjelsakan cara sederhana nya saja, sehingga sangat mudah dibuat untuk pemula yang baru belajar program delphi.

Cara kerjanya adalah sebelum tampilan utama / menu utama muncul, terlebih dahulu form loading progress akan berjalan penuh, selanjutnya pada saat progress bar sudah penuh maka form loading akan hilang dan selanjutnya akan muncul form menu utama. Progress bar ini akan muncul pada saat aplikasi pertama kali dijalankan. Untuk membuatnya saya akan memaparkan nya pada penjelasan di bawah ini.

Pertama – tama buat sebuah project Delphi sobat, disini saya akan membuat 2 buah form, yaitu form1 untuk loding progress dan form2 untuk tampilan menu utamanya. Selanjutnya atur properties form1 sebagai berikut:

Border style : bsnone

Position: PoScreenCenter

Jika sudah pada form1 tambahkan komponen sebagai berikut :

-          1 buah Timer

-          1 buah progress bar

-          1 buah XP manifest

Jika sudah selanjutnya klik 2x pada timer1 dan masukan coding berikut ini :

procedure TForm1.Timer1Timer(Sender: TObject);

var

waktu,loading:integer;

begin

loading:=loading+99;

ProgressBar1.Position:=loading;

waktu:=waktu - 1;

if loading>100 then

begin

timer1.Enabled:=false;

self.Hide;

form2.Show;

end;

end;

Jika sudah selanjutnya pada form2 tambahkan coding application.terminate; pada event onClose. Form2 merupakan tampilan utama, maka sobat dapat menambahkan komponen dan mendesin form tersebut sesuai keinginan sobat. Jika semua sudah selesai coba jalankan program yang sudah sobat buat tadi dengan cara menekan F9/RUN. dan lihat hasilnya. Cara sederhana ini dapat sobat kembangkan sendiri sesuai dengan kreatifitas sobat.

Demikian postingan tentang cara mudah membuat loading progress pada project Delphi yang dapat saya share kali ini, semoga dapat bermanfaat dan selamat mencoba.