Eigenschaften unterschiedlicher Objekte ändern

[Tyrael Y.]

Du musst nicht jede Komponente einzeln behandeln.
Guck mal bitte nochmal meinen Code an.

Du musst den gemeinsamen Vorfahren finden bei der diese von dir gesuchte Eigenschaft
definiert wird. Somit erschlägts du in einem Schritt ganz viele Komponenten.

Edit: Die Eigenschaft Color wird in TControl definiert.

Delphi-Quellcode:

for i := 0 to Mainform.ComponentCount  - 1 do
Begin
    if ((Mainform.Components[i] is TCustomEdit) then
      TCustomEdit(Mainform.Components[i]).ReadOnly := True
    else
    if (Mainform.Components[i] is TCustomComboBox) then
      TCustomComboBox(Mainform.Components[i]).Style := csDropDownList;

    if (Mainform.Components[i] is TControl) then
      TControl(Mainform.Components[i]).Color := clGreen;
End;end;