掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Panel上の全てのコントロールをロックするには？ (ID：4430)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 > Panel.Enabled := False; これでも実際上はいいのですが、視覚上の効果がありませんよね。 にしのさんの提案を完成させました。再帰呼び出しですね。 procedure TForm1.Button2Click(Sender: TObject); begin WinLock(Panel1); end; procedure TForm1.WinLock(WC:TWinControl); var i:integer; CC:TControl; begin if WC.ControlCount = 0 then exit; for i:=0 to WC.ControlCount-1 do begin CC := WC.Controls[i]; CC.Enabled := false; if CC is TWinControl then WinLock(TWinControl(CC)); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.