property OnKeyUp: TKeyEvent;
OnKeyUp to standardowe zdarzenie klawiatury VCL opublikowane na TPdfView. Procedura
obsługi działa po zgłoszeniu przez system operacyjny komunikatu WM_KEYUP /
WM_SYSKEYUP, gdy kontrolka ma fokus. Sygnatura zdarzenia to
procedure(Sender: TObject; var Key: Word; Shift: TShiftState) —
Key jest kodem klawisza wirtualnego (VK_ESCAPE,
VK_NEXT, VK_PRIOR, …), a Shift informuje
o stanie modyfikatorów w chwili zwolnienia
OnKeyUp jest wywoływane dla każdego klawisza — w tym klawiszy bez znaku, takich jak
strzałki i klawisze funkcyjne — pod warunkiem że TPdfView ma fokus
klawiatury. Ustaw Key na zero wewnątrz procedury obsługi, aby skonsumować
zdarzenie i nie dopuścić do jego dalszej propagacji (na przykład aby zablokować Tab
w przemieszczaniu fokusu podczas edycji pola formularza)
Użyj OnKeyUp do implementacji skrótów przeglądarki, które mają działać przy zwolnieniu,
a nie przy przytrzymaniu — Page Down / Page Up do nawigacji, F3 do wyszukania
następnego, Escape do usunięcia zaznaczenia. Ciągłe interakcje (przesuwanie, zaznaczanie
prostokątne) lepiej sterować z OnKeyDown, ponieważ system operacyjny
automatycznie powtarza KeyDown, ale emituje tylko jedno KeyUp na fizyczne zwolnienie
Key in [VK_CONTROL, VK_SHIFT, VK_MENU], jeśli chcesz je ignorować
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;