掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ActionListのショートカットキーを別フォームでは無効にしたい (ID:36228)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ご回答、ありがとうございます。 今、いろいろ操作してみましたが、以下のコードで動きそうです。 // Form1.OnCreate部分 var i: Integer; begin for i := 0 to ActionList1.ActionCount - 1 do begin ActionList1.Actions[i].OnUpdate := Action1Update; end; end; // Action1.OnUpdate部分 procedure TForm1.Action1Update(Sender: TObject); begin TAction(Sender).Enabled := Form1.Active; end; もう少し動きを見て、問題がないようでしたら改めて報告いたします。 お二人とも、大きなヒントをいただき、ありがとうございました。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.