TPopupMenu al visualizzatore PDF in modo che un clic destro su una pagina presenti un menu contestualeproperty PopupMenu: TPopupMenu; // published, inherited from TControl
Impostare PopupMenu collega il viewer a un componente TPopupMenu depositato sulla stessa form. Ogni volta che l'utente fa clic destro (o preme il tasto menu da tastiera) dentro il viewer, VCL/LCL mostra automaticamente il menu alla posizione del cursore — l'applicazione non deve gestire WM_CONTEXTMENU da sé
Un menu contestuale tipico di un lettore PDF offre voci come Copia testo selezionato, Ingrandisci, Riduci, Adatta larghezza, Ruota, Vai alla pagina…, Trova… e Salva con nome…. Le voci tipicamente leggono o scrivono proprietà pubbliche come CurrentCharIndex, Zoom, FitMode, Rotation e PageNumber per agire sul documento
Dato che il popup viene mostrato tramite il meccanismo di OnContextPopup, puoi sopprimerlo o sostituirlo dinamicamente gestendo OnContextPopup e impostando Handled := True — comodo quando il clic destro cade su un campo modulo o su un'annotazione che richiede un menu proprio
TPopupMenu viene salvato come riferimento a componente nel file di formAllowUserTextSelection è FalseTPopupMenu.OnPopup e ispeziona lo stato del viewer come CurrentCharIndex o Pdf.Active
// Attach a context menu offering Copy / Fit Width / Go to Page
procedure TForm1.FormCreate(Sender: TObject);
begin
PdfView1.PopupMenu := pmReader;
end;
procedure TForm1.miFitWidthClick(Sender: TObject);
begin
PdfView1.FitMode := pfmFitToWidth;
end;
procedure TForm1.miGoToPageClick(Sender: TObject);
var S: string;
begin
S := IntToStr(PdfView1.PageNumber);
if InputQuery('Go to page', 'Page number:', S) then
PdfView1.PageNumber := StrToIntDef(S, PdfView1.PageNumber);
end;