掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Panel上の全てのコントロールをロックするには？ (ID：4427)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.ctlLock(ctl:TControl); var i:Integer; begin for i:=0 to ctl.ControlCount-1 do begin ctlLock(ctl.Controls[i]); ctl.Enabled := False; end; end; これでどうでしょう。 未確認なので、コンパイルが通らないかもしれませんが、肝はControls配列内のコントロールに対しても、それらの持つコントロールをDisableするところです。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.