TPopupMenu PDF viewer と結び付けて、page を右クリックすると context menu を表示するようにしますproperty PopupMenu: TPopupMenu; // published, inherited from TControl
PopupMenu を設定すると、同じフォームに置いた TPopupMenu コンポーネントへビューアーが接続されます。ユーザーがビューアー内で右クリックするか(キーボードのメニューキーを押すか)するたびに、VCL/LCL が自動でカーソル位置へメニューを出すため、アプリが自前で WM_CONTEXTMENU を処理する必要はありません
PDF リーダーの定番コンテキストメニューには、選択テキストのコピー、拡大、縮小、幅に合わせる、回転、ページへ移動...、検索...、名前を付けて保存... といった項目が並びます。メニュー項目は通常、ドキュメントへ作用するために CurrentCharIndex、Zoom、FitMode、Rotation、PageNumber などの公開プロパティを読み書きします
ポップアップは OnContextPopup の仕組みで表示されるため、OnContextPopup を処理して Handled := True とすれば動的に抑止や差し替えができます。フォームフィールドや注釈の上での右クリックに、それぞれ専用のメニューを出したいときに使います
TPopupMenu インスタンスへの参照はコンポーネント参照としてフォームファイルに保存されますAllowUserTextSelection が False でもポップアップしますTPopupMenu.OnPopup をフックし、CurrentCharIndex や 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;