property OnKeyUp: TKeyEvent;
OnKeyUp — это стандартное событие клавиатуры VCL, опубликованное в TPdfView. Обработчик запускается после того, как операционная система сообщает о сообщении WM_KEYUP / WM_SYSKEYUP, пока элемент управления находится в фокусе. Сигнатура события — procedure(Sender: TObject; var Key: Word; Shift: TShiftState) — Key — это код виртуальной клавиши (VK_ESCAPE, VK_NEXT, VK_PRIOR, …), а Shift сообщает о состоянии модификатора в момент отпускания.
OnKeyUp срабатывает для каждой клавиши — включая несимвольные клавиши, такие как клавиши со стрелками и функциональные клавиши — при условии, что TPdfView имеет фокус клавиатуры. Установите Key в ноль внутри обработчика, чтобы поглотить событие, чтобы оно не распространялось дальше (например, чтобы заблокировать циклическое перемещение фокуса клавишей Tab при редактировании поля формы).
Используйте OnKeyUp для реализации ярлыков просмотра, которые должны срабатывать при отпускании, а не при удержании — Page Down / Page Up для навигации, F3 для поиска следующего, Escape для отмены выделения. Непрерывные взаимодействия (панорамирование, выделение рамкой) лучше управлять из OnKeyDown, поскольку ОС автоматически повторяет KeyDown, но отправляет только один KeyUp на каждое физическое отпускание.
Key in [VK_CONTROL, VK_SHIFT, VK_MENU], если вы хотите их проигнорировать.
procedure TForm1.PdfView1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
case Key of
VK_NEXT: PdfView1.PageNumber := PdfView1.PageNumber + 1;
VK_PRIOR: PdfView1.PageNumber := PdfView1.PageNumber - 1;
VK_HOME: PdfView1.PageNumber := 1;
VK_END: PdfView1.PageNumber := Pdf1.PageCount;
VK_ESCAPE: PdfView1.ClearHighlight;
end;
end;