掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
サブメニューのあるポップアップメニューで、親メニューのクリックを知る方法は？ (ID：29799)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
参考になるかどうか分かりませんが・・・ { Private 宣言 } procedure WMMENUSELECT(var msg: TWMMENUSELECT); message WM_MENUSELECT; ・・・ procedure TForm1.WMMENUSELECT(var msg: TWMMENUSELECT); var boMenuOpen: Boolean; begin inherited; boMenuOpen := not ((msg.MenuFlag and $FFFF > 0) and (msg.Menu = 0)); if boMenuOpen then begin Label1.Caption := 'Open'; end else begin Label1.Caption := 'Close'; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.