掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
タスクトレーでポップアップメニューのシュートカットキー有効にするには？？ (ID:20432)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
タスクトレーでマウスクリックでポップアップメニューを表示しています。 しかしながら、ポップアップメニューのショートカットキーが有効に ならないし矢印キーも利きません。 ちなみに「ShowMessage」を入れてやると有効になります。 画面は最前に表示されますが、アクティブになっていないの でしょうか？？ procedure TFormLoad.TaskTrayEvent(var Msg: TMessage); var tpMouse : TPoint; begin case Msg.LParam of //マウスの右ボタンがクリックされたら WM_RBUTTONDOWN: Begin SetForeGroundWindow(Self.Handle); PostMessage(Self.Handle, WM_NULL, 0, 0); //ShowMessage('PopupMenuPopup') ; GetCursorPos(tpMouse); PopupMenu.Popup(tpMouse.x, tpMouse.y); End; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.