![]() |
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Scroll form by PgDn and PgUp
You should set KeyPreview property of the Form to True and use VertScrollBar property of your form to change position of the form.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_NEXT then
VertScrollBar.Position:=
VertScrollBar.Position+
StrToInt(Edit1.Text)
else
VertScrollBar.Position:=
VertScrollBar.Position-
StrToInt(Edit1.Text);
end;
-
More for developers