掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TActionMainMenuBarに追加したメニューをEnabledにしたい (ID:4517)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下のようなコードで、TActionMainMenuBarに対してメニューを追加しようとしました。 //Man: TActionManager; //Man.ActionBars[0]: TMainMenuBar //Man.ActionBars[0].Items[1]: メニュー'編集(&E)' AClient := Man.ActionBars[0].Items[1]; CategoryItem := TActionClientItem.Create(nil); CategoryItem.Caption := 'Test(&T)'; CategoryItem.Collection := AClient.Collection; CategoryItem.Index := AClient.Index + 1; // '編集'メニューの右に追加 with CategoryItem.Items.Add do begin Action := MainForm.DummyAction;//アクションを追加 end; DummyAction自体はEnabledですが、'Test(&T)'メニューがDisabledで、クリックしても展開されません。 ただ、隣の'編集'メニューを展開し、マウスをずらしてTest(&T)に持って行くと、展開されます。 TActionClientItemにはEnabledプロパティがないため、変更できません。 Enabledの状態にする方法はありませんか？ 環境はDelphi7Proです。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.