Contributor: SWAG SUPPORT TEAM
{
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;