Per Schleife Eigenschaften ändern

[toms]

Hi!

Geht ganz einfach mit FindComponent():

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Word;
  ChkBox: TComponent;
begin
  for i := 1 to 6 do
  begin
    ChkBox := FindComponent('CheckBox' + IntToStr(i));
    if ChkBox <> nil then
      TCheckBox(ChkBox).Checked := True;
  end;
end;