TPopupMenu dengan penampil PDF sehingga klik-kanan pada halaman menyajikan menu konteksproperty PopupMenu: TPopupMenu; // published, inherited from TControl
Menetapkan PopupMenu menghubungkan penampil ke komponen TPopupMenu yang ditempatkan pada form yang sama. Setiap kali pengguna mengklik-kanan (atau menekan tombol menu keyboard) di dalam penampil, VCL/LCL secara otomatis menampilkan menu pada posisi kursor — aplikasi tidak perlu menangani WM_CONTEXTMENU sendiri
Menu konteks pembaca PDF yang khas menawarkan item seperti Copy Selected Text, Zoom In, Zoom Out, Fit Width, Rotate, Go to Page…, Find… dan Save As…. Item menu biasanya membaca atau menulis properti publik seperti CurrentCharIndex, Zoom, FitMode, Rotation dan PageNumber untuk bertindak pada dokumen
Karena popup ditampilkan melalui mekanisme OnContextPopup, Anda dapat menekan atau menggantinya secara dinamis dengan menangani OnContextPopup dan menetapkan Handled := True — berguna ketika klik-kanan terjadi di atas field formulir atau anotasi yang memerlukan menunya sendiri
TPopupMenu disimpan sebagai referensi komponen di file formAllowUserTextSelection bernilai FalseTPopupMenu.OnPopup dan periksa keadaan penampil seperti CurrentCharIndex atau 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;