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 ?