GroupBox内のコンポーネントを一括処理

解決

JILL 2005-07-27 08:05:47 No: 16640

GroupBoxの中にあるいくつかのCheckBoxのチェックを
全てはずすような処理はできるのでしょうか？
CheckBoxの名前、数は不特定です。

anone 2005-07-27 08:18:21 No: 16641

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  if GroupBox1.ControlCount > 0 then
    for i := 0 to GroupBox1.ControlCount-1 do
      if GroupBox1.Controls[i] is TCheckBox then
        TCheckBox(GroupBox1.Controls[i]).Checked := false;
end;

JILL 2005-07-27 08:35:57 No: 16642

見事にできました。
anoneさんありがとうございます。