Property eines TObjects setzen Frage

[Uwe Raabe]

Eventuell eher so:

Delphi-Quellcode:

  for Prop in RType.GetProperties do
  begin
    if Prop.Name = sPropColor then
      Prop.SetValue(AObject, FColorBackground);
    if Prop.PropertyType.IsInstance and Prop.PropertyType.AsInstance.MetaclassType.InheritsFrom(TFont) and (Prop.Name = sPropFont) then 
      TFont(prop.GetValue(AObject).AsObject).Color := FColorText;
  end;