[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    {
    Q.   How can you do scrolling functions in a TForm component
    using  keyboard commands?  For example, scrolling up and down
    when a  PgUp or PgDown is pressed.  Is there some simple way to
    do this or does it have to be programmed by capturing the
    keystrokes and manually responding to them?

    A.    Form scrolling is accomplished by modifying the
    VertScrollbar  or HorzScrollbar Postion properties of the
    form.  The following code demonstrates how to do this:
    }

    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;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]