Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

"Прокрутка" TScrollBox   Найти похожие ветки 

 
saNat ©   (2005-10-19 17:28) [0]

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

На форме лежит 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-19 20:36) [1]

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


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

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


 
saNat ©   (2005-10-21 09:50) [3]

Up



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
14-1129710010
Nadyafra
2005-10-19 12:20
2005.11.13
Срочно требуется ПРОГРАММИСТ DELPHI/ORACLE (от 1300-2000 у.е.)


14-1129813492
keal
2005-10-20 17:04
2005.11.13
Увелечение рисунка


4-1125479680
Лобзик
2005-08-31 13:14
2005.11.13
Виртуальная сетивая карта


14-1129361812
Anton_Uz
2005-10-15 11:36
2005.11.13
Компоненты


2-1129784806
SMATMP
2005-10-20 09:06
2005.11.13
LoadFromFile