右Ｗクリックでポップアップメニューを出現させるには？ (ID:12033)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (ssRight in Shift) and (ssDouble in Shift) then begin { ポップアップメニューの表示 } end; end; でいけるかと。