掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Panel上の全てのコントロールをロックするには？ (ID：4426)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Panel上の全てのコントロールのEnabledをFalseにしたいのですが、 Panelには、GroupBoxがありその配下に複数のCheckBoxが含まれています。 個々のCheckBoxのEnabledもFalseにしたいのです。 下記の方法だと、GroupBox配下のCheckBoxのEnabledをFalseにする事が 出来ません。 Panel上の全てを対象とするよい方法はないでしょうか？ ご教授下さいませ。 procedure TForm1.pnl2Click(Sender: TObject); begin pnlLock(form1.pnl2); end; procedure TForm1.pnlLock(pnl:TPanel); var i:Integer; begin for i:=0 to pnl.ControlCount-1 do begin pnl.Controls[i].Enabled := False; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.