Eigenschaften unterschiedlicher Objekte ändern

[WIng2005]

@Bernhard: Habe mir mal die typinfo angeschaut. Für mich scheint es , als könne man die Color-Property mit:

Delphi-Quellcode:

procedure MySetPropertyColor(Component: TComponent; const PropName: String; const Value: string);
var
  PropInfo: PPropInfo;
begin
  if (Component <> nil) then
  begin
    PropInfo := GetPropInfo(Component.ClassInfo, PropName);
    if (PropInfo <> nil) then
    begin
      if (PropInfo^.PropType^.Kind in [tkEnumeration]) then
        SetSetProp(Component, PropInfo, Value); //Wäre das überhaupt die richtige Methode?
    end;
  end;
end;

//aufgerufen mit:

MySetPropertyColor(edit1,'color','clred');

ändern. Leider bleibt der Aufruf bei mir funktionslos. Vielleicht hast du ja nen Tip, wo der Fehler liegt.

MFG
Steffen