Zitat von
inherited:
Müsste auch ohne Name und FindComponent gehen.
Delphi-Quellcode:
for i := 0 to MyForm.ComponentCount-1 do
if MyForm.Components[i] is TBitBtn then
(MyForm.Components[i] as TBitBtn).Enabled:=false;
ein kleiner "Schönheitsfehler". Durch den Cast mit "as" wird intern nochmal geprüft ob der Typ richtig ist. Da mit "is" das aber schon geprüft wurde kann ein harter Cast verwendet werden:
Delphi-Quellcode:
for i := 0 to MyForm.ComponentCount-1 do
if MyForm.Components[i] is TBitBtn then
TBitBtn(MyForm.Components[i]).Enabled:=false;