[vmilyoshin]

Как заставить 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;

А как сделать тоже самое для стрелок? Спасибо.

[Bargest]

По аналогии, можно использовать события формы OnKeyDown, определять нажатую клавишу и крутить в нужную сторону.

[vmilyoshin]

Сообщение от Bargest

По аналогии, можно использовать события формы OnKeyDown, определять нажатую клавишу и крутить в нужную сторону.

У меня на форме имеется 2 CheckBoxa. После клика мыши по одному из них событие формы onKeyDown перестаёт работать. По нажатию стрелок фокус перекидывается то к одному CheckBoxу то к другому.

В событии формы прописано:

Код:

if (Key = 38) then VertScrollBar.Position:= VertScrollBar.Position - 10;
if (Key = 40) then VertScrollBar.Position:= VertScrollBar.Position + 10;

Как это можно уладить?

[Pyro]

keypreview?

[vmilyoshin]

Сообщение от Pyro

keypreview?

Не помогает.