掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ActionでToolButtonのDownを機能させたい (ID:30056)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いつもお世話になります。 ToolButtonをアクションで管理し、Downを機能させたいのですが、上手くうごいてくれません。 ちなみにこのToolButtonのEnableをリアルタイムに管理したいためにActionのUpdateを使っています。 どうやったら、ToolButtonを凹ませることができるんでしょうか？ procedure TfrmMain.actDownExecute(Sender: TObject); begin if Action.Checked then begin Action.Checked := False; ToolButton.Down := True; end else begin Action.Checked := True; ToolButton.Down := False; end; end; //常時監視 procedure TfrmMain.actDownUpdate(Sender: TObject); begin if 条件 then (Sender as TAction).Enabled := True else (Sender as TAction).Enabled := False; end; Delphi7 + win2000
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.