掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ポップアップが閉じたイベントの拾い方 (ID:17814)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
AutoPopUp を false にした PopupMenu1 を置いて Edit1 の OnContextPopup イベントハンドラで procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin Edit1.Text := ''; Windows.ClientToScreen(Edit1.Handle, MousePos); PopupMenu1.Popup(MousePos.X, MousePos.Y); Handled := true; Edit1.Text := 'Popup Closed' end; のようにするといいです。自力で PopUp するとメニューモーダルから復帰するまで 制御が戻りませんので、そのあとの文は自動的に「ポップアップが閉じた」あとに 実行されます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.