Per Schleife Eigenschaften ändern

[looser]

Wie schreibt man eine Schleife mit der man z.B.
checkbox1.checked bis checkbox6.checked auf
true/false setzt ?
Irgendwie muß man das doch indizieren können !!

[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;

[Christian Seehase]

Moin Looser,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Such' doch hier mal nach FindComponent.

[looser]

Danke glaube damit komme ich klar.