Membuat Dropdownlist Pencarian Professional

Bagaimana kita membuat tampilan dropdown list yang pada daftarnya, menampilkan warna berbeda pada deretan huruf yang sesuai input pencarian?

Tentunya kita sering melihat tampilan dropdown atau combobox yang menampilkan daftar hasil dengan memberikan warna berbeda pada deretan huruf yang sesuai dengan pencarian. Nah, bagaimana hal itu bisa kita buat dengan dengan Delphi, sehingga aplikasi kita bisa terlihat lebih professional? Kita bisa membuatnya dengan memanfaatkan gabungan komponen TEdit, TListBox, dan TTimer.

TEdit berfungsi sebagai inputan, kata pencarian.

TTimer properti Enabled di set False, berfungsi memberikan delay saat kata pencarian diinputkan pada komponen TEdit, sehingga mengurangi akses ke database yang jika terlalu sering membuat respon aplikasi kita berkurang.

TListBox berfungsi menampilkan hasil pencarian dari database, setelah inputan kata dimasukkan pada komponen TEdit. Properti Style kita set menjadi lbOwnerDrawVariable, karena kita hendak menggambar sendiri penulisan item sehingga bisa kita set menjadi warna warni.

Dalam hal ini, saya menggunakan database Access (.mdb) dengan komponen ADO. Tabel yang diakses adalah tabel santri (santri saya yang culun2, and rada ndablek)

Alur logika sangat sederhana. Ketika user mengetikkan deretan karakter, maka event onkeypress pada TEdit langsung dijalankan. Dimana, didalamnya terdapat perintah untuk mengaktifkan timer.
Ketika timer berjalan, dia akan mengecek, apakah deretan karakter yang dimasukkan seperti sesudahnya atau tidak? Jika tidak maka query di database dijalankan.

Hasil query dimasukkan dalam Item TListBox, Height ListBox disesuaikan banyaknya item, terus ListBox ditampilkan.

Event OnKeyPress juga memerintahkan refresh pada komponen TListBox, hal ini penting, agar Event OnDrawItem pada ListBox dijalankan.

Pada Event OnDrawItem inilah, warna deretan huruf yang bersesuaian dengan inputan pada TEdit diberi warna merah.

Gitu aja deh.

Donwload Source & Executable