Wenn die Komponenten nicht denselben Vorfahren aufweisen, der genau die von dir zu veränderden Eigenschaften besitzt wirst du so nicht weiterkommen.
Eine TListBox hat keine Eigenschaft, die das beschreiben durch Benutzereingabe erluabt oder
nicht erlaubt, ich weiss nicht was du dabei vorhast.
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;
End;end;