Komponenten auf dem Panel durchlaufen???

[haentschman]

Hallo...

FindComponent dürfte hier dein Freund sein

[romber]

Zitat von haentschman:

FindComponent[/OH][/B] dürfte hier dein Freund sein

Bei FindComponent muss ich doch auch jede Komponente mit dem namen suchen. Genau so könnte ich doch auch auf jede Komponente einzeln zugereifen und Status abfragen, oder?

[haentschman]

nun ja, mit FindComponent findes du nur die CheckBoxen z.B.
Mit Components hast du alle Komponenten. ComponentCount ist die Summe aller Komponenten. Wenn die Checkboxen durchnummeriert sind kannst du das ganze in einer Schleife ablaufen lassen. Siehe Beispiele: Beispiele ganz unten

[Uwe Raabe]

Delphi-Quellcode:

procedure TForm51.Button1Click(Sender: TObject);
var
  chk: TCheckBox;
  I: Integer;
begin
  for I := 0 to Panel1.ControlCount - 1 do begin
    if Panel1.Controls[I] is TCheckBox then begin
      chk := TCheckBox(Panel1.Controls[I]);
      if chk.Checked then begin
        TueWasMit(chk.Tag);
      end;
    end;
  end;
end;

[haentschman]

... auch ne Variante