mehrere comboboxen auf enabled

[s-off]

Hallo,

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   i: Integer;
Begin
   For i := 0 To ComponentCount - 1 Do Begin
      If Components[i] Is TComboBox Then
         TComboBox(Components[i]).Enabled := Not TComboBox(Components[i]).Enabled;
   End;
End;