Текущий архив: 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.052 c
