|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перемещение VertScrollBar формы
Как заставить VertScrollBar формы перемещатся по нажатию стрелок вверх и вниз.
Допустим для колёсика мыши: Код:
procedure TForm19.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin VertScrollBar.Position:= VertScrollBar.Position + 10; end; procedure TForm19.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin VertScrollBar.Position:= VertScrollBar.Position - 10; end; |
#2
|
||||
|
||||
По аналогии, можно использовать события формы OnKeyDown, определять нажатую клавишу и крутить в нужную сторону.
jmp $ ; Happy End! The Cake Is A Lie. |
Этот пользователь сказал Спасибо Bargest за это полезное сообщение: | ||
vmilyoshin (29.12.2011)
|
#3
|
|||
|
|||
Цитата:
У меня на форме имеется 2 CheckBoxa. После клика мыши по одному из них событие формы onKeyDown перестаёт работать. По нажатию стрелок фокус перекидывается то к одному CheckBoxу то к другому. В событии формы прописано: Код:
if (Key = 38) then VertScrollBar.Position:= VertScrollBar.Position - 10; if (Key = 40) then VertScrollBar.Position:= VertScrollBar.Position + 10; |
#4
|
|||
|
|||
keypreview?
|
#5
|
|||
|
|||
Цитата:
|