|
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;
- For more
-
Delphi Help
- Download source
|