Eigenschaften unterschiedlicher Objekte ändern

[Sharky]

So solle es gehen:

Delphi-Quellcode:

uses
  TypInfo;


procedure MySetPropertyColor(Instance: TComponent; const PropName: String; const Value: TColor);
resourcestring
  SUnknownProperty = 'Eigenschaft %s existiert nicht.';
var
  PropInfo: PPropInfo;
begin
  PropInfo := GetPropInfo(Instance, PropName);
  if PropInfo = NIL then
  begin
    raise EPropertyError.CreateResFmt(@SUnknownProperty, [PropName]);
  end;
  SetOrdProp(Instance, PropInfo, Value);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MySetPropertyColor(Edit1,'Color',clred);
end;