property OnKeyUp: TKeyEvent;
OnKeyUp to standardowe zdarzenie klawiatury VCL opublikowane dla TPdfView. Program
obsługujący to zdarzenie jest uruchamiany po zgłoszeniu przez system operacyjny komunikatu WM_KEYUP /
WM_SYSKEYUP, gdy formant jest aktywny. Sygnatura zdarzenia to
procedure(Sender: TObject; var Key: Word; Shift: TShiftState) —
Key to kod klawisza wirtualnego (VK_ESCAPE,
VK_NEXT, VK_PRIOR, …), a Shift zgłasza
stan modyfikatorów w momencie zwolnienia klawisza.
Zdarzenie OnKeyUp uruchamia się dla każdego klawisza — w tym klawiszy innych niż znakowe, takich jak strzałki
i klawisze funkcyjne — pod warunkiem, że TPdfView posiada fokus klawiatury. Ustaw
Key na zero wewnątrz procedury obsługi, aby skonsumować zdarzenie, by nie
propagowało się dalej (na przykład, aby zablokować przełączanie fokusu przez klawisz Tab, gdy pole formularza jest
w trakcie edycji).
Użyj zdarzenia OnKeyUp, aby zaimplementować skróty przeglądarki, które powinny być uruchamiane przy zwolnieniu klawisza, a nie
po jego przytrzymaniu — Page Down / Page Up do nawigacji, F3 dla znajdź następny, Escape, aby odrzucić
zaznaczenie. Ciągłe interakcje (przesuwanie, zaznaczanie prostokątne) są lepiej sterowane
z poziomu OnKeyDown, ponieważ system operacyjny automatycznie powtarza KeyDown, ale emituje tylko jedno
KeyUp na fizyczne zwolnienie.
Key in [VK_CONTROL, VK_SHIFT, VK_MENU] w przypadku, gdy chcesz je zignorować.
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;