Прокрутка TScrollBox с помощью стрелок вверх и вниз



Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

private
procedure CMDialogKey(var Msg: TCMDialogKey); message CM_DIALOGKEY;
end;
implementation
procedure TForm1.CMDialogkey;
begin
with Scrollbox1.VertScrollBar do
begin
case Msg.CharCode of
// Delphi takes care of Position < 0 or Position > Range 
VK_DWON: Position := Position + Increment; // down arrow key 
VK_Up: Position   := Position - Increment; // up arrow key 
else
inherited;
end;
end;
end;

Далее: Синхронизация двух компонентов ScrollBox »»