Alle BitBtn auf einem TTabSheet enabled = FALSE setzen

[DeddyH]

Nächster Versuch:

Delphi-Quellcode:

var i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TBitBtn) and (TBitBtn(Components[i]).Parent is TGroupBox) and
       Assigned(TBitBtn(Components[i]).Parent.Parent) and
       (TBitBtn(Components[i]).Parent.Parent = TabSheet1) then
      TBitBtn(Components[i]).Enabled := true;
end;