Object Property Values zur Laufzeit erzeugen

[bogdan]

Sorry, habe mich etwas unverständlich ausgedrückt.

Ich meinte nicht die Funktion zur Laufzeit erzeugen, sondern die Zuweisung der Eigenschaften des Objekts. Also dass was die Function "hardcoded" ausführt möchte ich umschreiben, dass ich die .Font.Color, .Font.Size, oder .Pen.Width, .Pen.Color, etc. zur Laufzeit als Objekt erstellen und zuweisen kann.

Ich erstelle ein zb. ein TFont Objekt über ein string = APropName :

Delphi-Quellcode:

  aClass := FindClass('T' + APropName);
  if aClass.InheritsFrom(TObject) then aObject := aClass.Create;

dann liste ich die Eigenschaften und prüfe welche ich ändern möchte

Delphi-Quellcode:

 count := GetPropList(PTypeInfo(aObject.ClassInfo), tkAny, @List);
  for i := 0 to count - 1 do
    if List[i]^.Name = APropSub then

jetzt möchte ich die X Eigenschaft des TFont Objektes ändern was mit SetObjectProp(aObject, APropSub, ???) ja machbar ist.
Nur wie in ??? ein TObject mit dem String AValue zuweisen?

Hoffe es ist so besser zu verstehen.