Utiliser les flèches pour monter/descendre la ScrollBar

{Placer dans un TScrollBox une grande image en autosize:=true}

private
{ Déclarations privées }
procedure CMDialogKey( var Msg: TCMDialogKey); message CM_DIALOGKEY;
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.CMDialogkey;
begin
with Scrollbox1.VertScrollBar do
begin
case Msg.CharCode of
// Delphi takes care of Position < 0 or Position > Range
VK_DOWN: Position := Position + Increment; // down arrow key
VK_Up: Position := Position - Increment; // up arrow key
else
inherited;
end;
end;
end;
end.