property OnKeyUp: TKeyEvent;
OnKeyUp es el evento de teclado estándar de VCL publicado en TPdfView. El
handler se ejecuta después de que el sistema operativo informa de un mensaje
WM_KEYUP /
WM_SYSKEYUP mientras el control tiene el foco. La firma del evento es
procedure(Sender: TObject; var Key: Word; Shift: TShiftState) —
Key es el código de tecla virtual (VK_ESCAPE,
VK_NEXT, VK_PRIOR, …) y Shift informa del
estado de los modificadores en el momento de soltar
OnKeyUp se dispara para cada tecla — incluidas teclas sin carácter como los cursores
y las teclas de función — siempre que TPdfView tenga el foco de teclado. Establezca
Key a cero dentro del handler para consumir el evento y que no se
propague más (por ejemplo, para impedir que Tab mueva el foco mientras un campo de formulario se
está editando)
Use OnKeyUp para implementar atajos del visor que deban dispararse al soltar y no al
mantener — Page Down / Page Up para navegar, F3 para buscar la siguiente, Escape para quitar
una selección. Las interacciones continuas (desplazamiento, selección de marquesina) es mejor gestionarlas
desde OnKeyDown, porque el OS auto-repite KeyDown pero solo emite un
KeyUp por cada pulsación física
Key in [VK_CONTROL, VK_SHIFT, VK_MENU] si quiere ignorarlas
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;