Como rolar um form com pgUp e pgDn

Versão: Todas

Plataforma: Windows/Win32

Q. Como posso fazer funções de rolagem num componente TForm usando comandos de teclado? Por exemplo, rolar pra cima e pra baixo quando pressionar PgUp ou PgDown. Existe algum método simples de fazer isso???

R. O rolamento do form é completo fazendo-se uma modificação na posição das propriedades VertScrollbar ou HorzScrollbar do form. Como mostrado no código a 

seguir:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

const

PageDelta = 10;

begin

  With VertScrollbar do

  if Key = VK_NEXT then

  Position := Position + PageDelta

  else if Key = VK_PRIOR then

  Position := Position - PageDelta;

end;