Scroll Up/Down pada object yang berada di bawah mouse tanpa harus focus ke object tersebut

Ketika melihat IDE dari delphi, timbul pertanyaan di benak saya. Bagaimanakah cara meng-scroll object (secara vertikal) yang ada di bawah mouse tanpa harus focus terlebih dahulu ke object yang kita ingin scroll up/down dan tidak memindahkan focus. Hasilnya, saya memanfaatkan event on applicationmessage untuk mengambil message WM_MOUSEWHEEL, dari situ kita ambil control/object yang ada di bawah mouse, selanjutnya kirimkan message (SENDMESSAGE/POSTMESSAGE) memanfaatkan handle dari control/object tersebut dengan tipe message WM_VSCROLL, parameter VS_PAGEUP/VS_PAGEDOWN. Download source di sini

Powered by ScribeFire.