ActionListのショートカットキーを別フォームでは無効にしたい (ID:36226)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは。 当該アクションのOnUpdateイベントでForm1がアクティブの時だけ アクションのEnabledをTrueに設定するのが楽だと思います。 例えば、アクション名がAction1だった場合は procedure TForm1.Action1Update(Sender: TObject); begin Action1.Enabled := Form1.Active; end; となります。 これでForm1がアクティブの時だけAction1を実行できます。 Form2がアクティブの時はショートカットキーが反応しないはずです。