Alle Komponenten werden zur Laufzeit erzeugt. Mit SetPropValue(AComponent, APropName, APropValue) setze ich die Eigenschaften der Komponenten.
Mit SetObjectProp(aObject, APropSub, AValue) setze ich dann die Eigenschaft eines TFont Objektes.
Das Value wird mit der folgenden Funktion zusammen gesetzt:
Delphi-Quellcode:
function SetProperty_Font:TObject;
var A : TFont;
begin
A := TFont.Create;
A.Color := clBlue;
A.Name := 'Tahoma';
A.Size := 12;
Result := A;
end;
Diese Funktion würde ich gerne aber zur Laufzeit erzeugen wollen, da es ja noch andere Objekte mit Eigenschaften gibt.
Mein Ansatz wäre wie folgt:
Delphi-Quellcode:
function SetPropertyObject(APropName, APropSub, AValue: String): TObject;
var aClass : TPersistentClass;
aObject : TObject;
count, i : Integer;
List: TPropList;
begin
aClass := FindClass('T' + APropName);
if aClass.InheritsFrom(TObject) then aObject := aClass.Create;
count := GetPropList(PTypeInfo(aObject.ClassInfo), tkAny, @List);
for i := 0 to count - 1 do
if List[i]^.Name = APropSub then
SetObjectProp(aObject, APropSub, ???);
// und hier hört's bei mir auf
end;
Vielleicht hat jemand einen Tip?