property OnKeyUp: TKeyEvent;
OnKeyUp ist das Standard-VCL-Tastaturereignis, das an TPdfView published ist. Der
Handler läuft, nachdem das Betriebssystem eine WM_KEYUP- /
WM_SYSKEYUP-Meldung meldet, während das Control den Fokus hat. Die Ereignis-Signatur ist
procedure(Sender: TObject; var Key: Word; Shift: TShiftState) —
Key ist der Virtual-Key-Code (VK_ESCAPE,
VK_NEXT, VK_PRIOR, …), und Shift meldet
den Modifier-Zustand im Moment des Loslassens
OnKeyUp feuert für jede Taste — auch für Zeichentasten-fremde wie Pfeiltasten
und Funktionstasten — sofern TPdfView den Tastaturfokus hat. Setzen Sie
Key im Handler auf null, um das Ereignis zu konsumieren, damit es sich nicht
weiter fortpflanzt (etwa um Tab am Zyklus des Fokus zu hindern, während ein Formularfeld
bearbeitet wird)
OnKeyUp für Viewer-Kürzel verwenden, die beim Loslassen feuern sollen statt beim
Halten — Page Down / Page Up für die Navigation, F3 für Weitersuchen, Escape, um eine
Selektion zu verwerfen. Kontinuierliche Interaktionen (Schwenken, Gummiband-Selektion) fahren mit
OnKeyDown besser, weil das OS KeyDown auto-wiederholt, aber nur ein
KeyUp je physischem Loslassen schickt
Key in [VK_CONTROL, VK_SHIFT, VK_MENU] prüfen, wer sie ignorieren will
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;