TPopupMenu con el visor de PDF para que al hacer clic derecho sobre una página se muestre un menú contextualproperty PopupMenu: TPopupMenu; // published, inherited from TControl
Establecer PopupMenu conecta el visor a un componente TPopupMenu colocado en el mismo formulario. Cada vez que el usuario haga clic derecho (o pulse la tecla de menú del teclado) dentro del visor, VCL/LCL muestra automáticamente el menú en la posición del cursor — la aplicación no necesita gestionar WM_CONTEXTMENU por sí misma
Un menú contextual típico de un lector PDF ofrece elementos como Copiar texto seleccionado, Acercar, Alejar, Ajustar al ancho, Rotar, Ir a página…, Buscar… y Guardar como…. Los elementos del menú suelen leer o escribir propiedades public como CurrentCharIndex, Zoom, FitMode, Rotation y PageNumber para actuar sobre el documento
Como el popup se muestra mediante el mecanismo OnContextPopup, puede suprimirlo o reemplazarlo dinámicamente gestionando OnContextPopup y estableciendo Handled := True — útil cuando el clic derecho cae sobre un campo de formulario o una anotación que necesita su propio menú
TPopupMenu se guarda como referencia de componente en el archivo de formularioAllowUserTextSelection es FalseTPopupMenu.OnPopup e inspeccione el estado del visor, como CurrentCharIndex o Pdf.Active
// Adjuntar un menú contextual con Copiar / Ajustar ancho / Ir a página
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;