| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

"Прокрутка" TScrollBox [D6, WinXP]

saNat ©   (2005-10-19 17:28:00) 

Доброго времени суток :о)

На форме лежит TScrollBox. В нем я динамически размещаю TPanel. По нажатию клавиш PageUp и PageDown меняется выделенный элемент. Если (так оно и есть) кол-во экземпляров TPanel не вмещается в ScrollBox то нужно программно "прокручивать" VertScrollBar. Прокрутку вверх (по нажатию PageUp) я сделал:

VK_Prior : Begin
           If (Item<>Nil)And(Item.Next<>Nil)
            Then
             Begin
              Item.Panel.PActiveColor:=clSilver;
              Item:=Item.Next;
              Item.Panel.PActiveColor:=clSkyBlue;
              If Item.Panel.Top<=0
               Then
                Begin
                 Panel3.VertScrollBar.Position:=Panel3.VertScrollBar.Position+Item.Panel.Top;
                End;
             End;
          End;

а вниз (PageDown) не получается
Подскажите, пожалуйста, как реализовать

С уважением, ЕВА

---

saNat   (2005-10-21 09:50:00) [1]

Up

---

saNat   (2005-10-20 18:13:00) [2]

Значит вообще неизвестно, как прокрутить список?

---

saNat   (2005-10-19 20:36:00) [3]

Вопрос открыт... :о(

---

Наверх