掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Imageを右クリックした時のイベント処理は？ (ID：3567)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じでしょうか。 # 変数などは適宜変更を。 ただし、ボタンの上でも効かなくなります。つまり、Form1を直に右クリックしたときだけポップアップメニューが出ます。 procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); var comp: TComponent; pt: TPoint; begin GetCursorPos(pt); comp := FindDragTarget(pt, true); Handled := (comp<>Form1); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.