Alle BitBtn auf einem TTabSheet enabled = FALSE setzen

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

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