property OnKeyUp: TKeyEvent;
OnKeyUp är standardhändelsen för VCL-tangentbord, publicerad på TPdfView. Hanteraren
körs efter att operativsystemet rapporterar ett WM_KEYUP- /
WM_SYSKEYUP-meddelande medan kontrollen har fokus. Händelsesignaturen är
procedure(Sender: TObject; var Key: Word; Shift: TShiftState) —
Key är den virtuella tangentkoden (VK_ESCAPE,
VK_NEXT, VK_PRIOR, …) och Shift rapporterar
modifierartillståndet vid släppögonblicket
OnKeyUp utlöses för varje tangent — inklusive teckenlösa tangenter som piltangenter
och funktionstangenter — förutsatt att TPdfView har tangentbordsfokus. Sätt
Key till noll i hanteraren för att förbruka händelsen så att den inte
fortplantas vidare (till exempel för att blockera Tab från att växla fokus när ett
formulärfält redigeras)
Använd OnKeyUp för att implementera visargenvägar som ska utlösas vid släpp i stället
för vid nedtryckning — Page Down / Page Up för navigering, F3 för nästa sökträff,
Escape för att avvisa en markering. Kontinuerliga interaktioner (panorering, markering
med markeringmask) drivs bättre från OnKeyDown eftersom OS upprepar KeyDown
automatiskt men endast avger ett KeyUp per fysiskt släpp
Key in [VK_CONTROL, VK_SHIFT, VK_MENU] om du vill ignorera dem
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;