掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ポップアップメニューの表示有無を取得するには？ (ID：23584)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
鳴かずんば ...さん、有り難うございました。 表示状態を取得できるプロパティでもあれば良いなと思っていたのですが、 拡張PopupMenuを作成し、OnDestroyイベントを作成するとは確かに力業です。 提供して頂いたコードでサンプルを作成し、デバッグ中に気づいたのですが、 実は非常に簡単に自分の質問内容を解決する方法が解りました。 procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var pp: TPoint; begin if (Button in [mbRight]) then begin {右クリック時} Form1.Caption := 'PopupMenu表示'; pp := PaintBox1.ClientToScreen( Point(X,Y) ); PopupMenu1.Popup( pp.x, pp.y ); Form1.Caption := 'PopupMenu消去'; end; end; 上記の様にPopupメソッドの後にPopupMenu消去時の処理を行えば良かった様です。 PopupメソッドはShowメソッドの様な動作かと思っていたのですが、ShowModalと 同じ動作だったのですね。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.