Dalam artikel berikut akan saya berikan trik bagaimana menempatkan sebuah ProgressBar dalam DialogBox standard Windows dengan opsi pilihan tombol "Yes" dan "No". ProgressBar yang ditempatkan dalam DialogBox akan menghitung waktu pemunculan DialogBox itu sendiri (hingga menutup dengan sendirinya tanpa harus ada respon dari user). Berikut adalah langkah-langkah dan tahapan untuk membuat DialogBox dimaksud:
Langkah selanjutnya adalah, buka Delphi, buat project baru, lalu letakkan sebuah TButton, pada form, kemudian masukkan kode berikut:
- Buat sebuah dialog menggunakan metode CreateMessageDialog.
- Fungsi diatas akan menghasilkan Objek Form dengan dialog.
- Dalam Objek tersebut kita dapat menambahkan sebuah ProgressBar.
- Sebuah Timer juga diperlukan untuk menentukan nilai posisi dari ProgressBar yang kita tambahkan dalam form dialog diatas.
- Tampilkan dialog yang sudah kita buat dengan metode ShowModal.
- Buat Handle pada kejadian OnTimer milik komponen Timer, untuk menangani kejadian apabila nilai posisi dari ProgressBar sudah mencapai nilai maximum.
- Gunakan metode StepIt untuk mengupdate ProgressBar.
Langkah selanjutnya adalah, buka Delphi, buat project baru, lalu letakkan sebuah TButton, pada form, kemudian masukkan kode berikut:
Komentar