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

名前

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

本文 Timer1をセットして procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var pt:TPoint; begin if Button=mbRight then if Timer1.Enabled then begin pt:=ClientToScreen(Point(X,Y)); PopupMenu1.Popup(pt.X,pt.Y); Timer1.Enabled:=False; end else begin Timer1.Enabled:=True; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled:=False; end; Timer1のEnabledはFalse Intervalは400くらいが適当