Komponenten einer Groupbox durchlaufen

[Cöster]

Hi!

Wie kann man alle Komponenten einer Groupbox mit einer Schleife durchlaufen? Ich hab's über Components probiert, aber ComponentsCount ist komischerweise 0.

Ist das überhaupt möglich?

[DGL-luke]

Alle Komponenten, deren Owner = deine groupbox ist, solltest du da erreichen können.

Schau mal in den Designer bzw. deine Struktur. Eventuell liegen die Konmponenten nur über der Groupbox auf der Form.

[Cöster]

Hm, funzt irgendwie nicht. So sieht der Code aus:

Delphi-Quellcode:

for I := 0 to ComponentCount - 1 do
   if (Components[I].Owner = GroupBox1) then
      TControl(Components[I]).Enabled := True;

In der Struktur sind alle Komponenten übereinander angeordnet, dort kann ich also nicht sehen, ob die Groupbox der Owner ist. Ich kann die Komponenten zur Designzeit aber nicht aus der Groupbox rausschieben. Deswegen meine ich, dass die Groupbox der Owner sein müsste.

Wie geht's dann?

[pszopp]

Hallo Cöster,

normalerweise ist der Owner einer Komponente immer das Formular, auf dem die Komponente im Designer gelegt wurde. Über den Owner einer Komponente kann man dann mit ComponentCount und Components[] die Komponenten abfragen.

Eine Lösung wäre also:

Delphi-Quellcode:

for ii := 0 to Pred(aForm.ComponentCount) do begin
  // do something
end; // for ii

Leider bekommt man dann alle Komponenten des Formulars und nicht nur jene, die in der GroupBox liegen.
Da die Komponenten in der GroupBox alle die GroupBox als Parent haben, kann man mit ControlCount und Controls[] arbeiten.

Das sieht dann so aus:

Delphi-Quellcode:

for ii := 0 to Pred(aGroupBox.ControlCount) do begin
  ShowMessage(aGroupBox.Controls[ii].Name);
end; // for ii

** ungetestet **

Viele Grüße,
pszopp

[Cöster]

Zitat von pszopp:

Delphi-Quellcode:

for ii := 0 to Pred(aGroupBox.ControlCount) do begin
  ShowMessage(aGroupBox.Controls[ii].Name);
end; // for lk

Das klappt, danke