Przewijanie listbox za pomocą scrollbar

0

Witam! Pisze program i potrzebuje w nim listboxa ktory bedzie przewijany za pomoca komponentu scrollbar. Znalazlem jakas procedure do przewijania za pomoca przyciskow ale niewiem jak ja przeniesc na scrollbar bo trzeba okreslic czy przewijam w gore czy w dol a ja niewiem jak to wykryc na scrollbarze. Prosze o pomoc.

0

Dobra juz wymyslilem!
Dla tych co niewiedza procedurka wyglada nastepujaca

w zdarzeniu OnScroll() komonentu scrollbar piszemy:

ScrollBar1.Max := ListBox1.Items.Count - (ListBox1.Height div 16); //16 to wysokosc itema (ItemHeight)
SendMessage(ListBox1.handle, WM_VScroll, MakeLParam(SB_THUMBPOSITION, ScrollBar1.Position), 0);

i to by bylo na tyle. Pozdro!!!</i>

1 użytkowników online, w tym zalogowanych: 0, gości: 1