[ milan_sr @ 15.12.2011. 14:10 ] @
Imam panel na njega elemnte...hocu da stavim Tscrollbar i tako da listam panel vertikalno...posto nikad nisam radio sa tim naso nekoliko primera ali nesta nije kao sta treba.. kada radim ovako nema pocetka a ni kraja scrol... Code: void __fastcall TGlavnaF::FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta, TPoint &MousePos, bool &Handled) { Panel1-> ScrollBy(0, WheelDelta); } Kad koristim event OnScroll od TScrollbar onda skrolovanje ide samo prema nagore (TOP) za y koodrinatu uzima sve manje i manje vredoste bez obzira dali sa skrolom ides nagore ili nadole...BCB je upitanju...moze neko resenje :D Hvala Code: void __fastcall TGlavnaF::ScrollBar1Scroll(TObject *Sender, TScrollCode ScrollCode, int &ScrollPos) { Panel1-> ScrollBy(0, ScrollPos); } |