Delphi’nin bir scrollbar’a (kaydırma cubuğu) sahip TMemo, TListBox, TStringGrid ve TListView gibi bircok nesnesi bulunmakta. Nesnenin icindeki elemanlar nesnenin yuksekliğine sığmadığında otomatik olarak dikey bir scroollbar oluşturulur. Bu bar ile liste icerisinde hareket edebilirsiniz. Bazen listede istediğiniz bir elemanı gostermek icin kaydırma cubuğunu kontrol etmeniz gerekebilir. Aşağıdaki orneklerdeki gibi SendMessage ile nesneye mesaj gondererek listenin istediğiniz konuma kaymasını sağlayabilirsiniz.

Kod:
//Kaydırma cubuğunu en alta konumlandır. SendMessage(KaydirilacakNesneninAdi.Handle, WM_VSCROLL, SB_BOTTOM, 0); //Kaydırma cubuğunu en uste konumlandır. SendMessage(KaydirilacakNesneninAdi.Handle, WM_VSCROLL, SB_TOP, 0); //Kaydırma cubuğunu bir satır yukarı kaydır. SendMessage(KaydirilacakNesneninAdi.Handle, WM_VSCROLL, SB_LINEUP, 0); //Kaydırma cubuğunu bir satır alta kaydır. SendMessage(KaydirilacakNesneninAdi.Handle, WM_VSCROLL, SB_LINEDOWN 0); //Kaydırma cubuğunu bir sayfa yukarı kaydır. SendMessage(KaydirilacakNesneninAdi.Handle, WM_VSCROLL, SB_PAGEUP, 0); //Kaydırma cubuğunu bir sayfa yukarı kaydır. SendMessage(KaydirilacakNesneninAdi.Handle, WM_VSCROLL, SB_PAGEDOWN, 0);
SendMessage‘in ikinci parametresi olan WM_VSCROLL (Windows Messsage Vertical Scroll) değerini WM_HSCROLL yaparsanız yatay kaydırma cubuğunu kontrol edersiniz. Bu durumda 3 parametredeki değerler yerine şunları kullanmalısınız: SB_LEFT, SB_RIGHT, SB_PAGELEFT,SB_PAGERIGHT. Tum WM_HSCROLL parametrelerini gormek icin buraya, VM_VSCROLL parametrelerini gormek icin buraya tıklayın.



__________________