property OnKeyUp: TKeyEvent;
OnKeyUp est l'événement clavier VCL standard publié sur TPdfView. Le
gestionnaire s'exécute après que le système d'exploitation a signalé un message WM_KEYUP /
WM_SYSKEYUP pendant que le contrôle a le focus. La signature de l'événement est
procedure(Sender: TObject; var Key: Word; Shift: TShiftState) —
Key est le code de la touche virtuelle (VK_ESCAPE,
VK_NEXT, VK_PRIOR, …) et Shift signale
l'état du modificateur au moment du relâchement.
OnKeyUp se déclenche pour chaque touche — y compris les touches non-caractères telles que les touches fléchées
et les touches de fonction — à condition que TPdfView ait le focus clavier. Définissez
Key à zéro dans le gestionnaire pour consommer l'événement afin qu'il ne se
propage pas davantage (par exemple pour empêcher la touche Tabulation de faire défiler le focus lorsqu'un champ de formulaire est
en cours de modification).
Utilisez OnKeyUp pour implémenter des raccourcis de visionneuse qui doivent se déclencher au relâchement plutôt qu'au
maintien — Page suivante / Page précédente pour la navigation, F3 pour rechercher le suivant, Échap pour annuler
une sélection. Les interactions continues (panoramique, sélection par rectangle) sont mieux gérées
par OnKeyDown car le système d'exploitation répète automatiquement KeyDown mais n'émet qu'un seul
KeyUp par relâchement physique.
Key in [VK_CONTROL, VK_SHIFT, VK_MENU] if you want to ignore them.
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;