掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
右Ｗクリックでポップアップメニューを出現させるには？ (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くらいが適当
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.