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

解決

JILL  2005-07-27 08:05:47  No: 16640  IP: [192.*.*.*]

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

編集    削除
anone  2005-07-27 08:18:21  No: 16641  IP: [192.*.*.*]

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  IP: [192.*.*.*]

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

編集    削除