Alle BitBtn auf einem TTabSheet enabled = FALSE setzen

[HolgerCW]

Ja,

wenn ich die Struktur in Delphi oben links mir anschaue, sind die BitnBtns in der GroupBox. So habe ich das auch gewollt.

So funktionierts:

Delphi-Quellcode:

MeineGroupBox := TGroupBox(FindComponent('GB1'));

for I := 0 to Form1.ComponentCount - 1 do
begin

 if (Components[i] is TBitBtn) and (TBitBtn(Components[i]).Parent = MeineGroupBox) then
 begin

  TBitBtn(Components[i]).Enabled := TRUE;

 end;

end;

Nur wollte ich das TabSheet angeben, nicht die einzelnen GruopBoxen auf dem TabSheet.

Was ich bräuchte ist:

1. TabSheetname ist als String bekannt.
2. Auslesen der GroupBoxen durch Parent
3. Auslesen der BitBtns in den GroupBoxen durch Parent
4. Alle ausgelesenen BitBtns auf enabled = TRUE setzen

Ist das möglich ?