VertScrollBar (Delphi)

Description

The following example demonstrates how forms are scrolled with the PgUp and PgDn keys.

Code

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;

Uses

• Vcl.Forms.TScrollingWinControl.VertScrollBar ( fr | de | ja )
• Vcl.Forms.TControlScrollBar.Increment ( fr | de | ja )
• Vcl.Forms.TControlScrollBar.Position ( fr | de | ja )
• Vcl.Forms.TControlScrollBar.Range ( fr | de | ja )
• Vcl.Forms.TControlScrollBar.Visible ( fr | de | ja )
• Vcl.Controls.TControl.ClientHeight ( fr | de | ja )