[ 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);
}