RTTI-Zugriff auf TFont-Eigentschaft

[Jasocul]

Moin,
ich beschäftige mich das erste Mal mit RTTI.
Aktuell versuche ich darüber auf Font-Eigenschaften von Komponenten zuzugreifen und bekomme ein Problem.

Mit

Delphi-Quellcode:

if (IsPublishedProp(aControl, 'Font')) then

Stelle ich fest, ob überhaupt das Control (Type TControl) die Eigenschaft besitzt.
Das ist der Fall, da es sich um ein TEdit handelt.

Daher merke ich mir den Font mit:

Delphi-Quellcode:

aFont := TFont(IsPublishedProp(TWinControl(aControl), 'Font'))

Für das Programm benötige ich eigentlich nur die Eigenschaft Height vom aFont.
Sobald ich aber darauf zugreife, bekomme ich eine Schutzverletzung:
Exception der Klasse $C00000005. Zugriffsverletzung an Adresse 0x00512df9. Lesen von Adresse 0x00000011.

Im Moment habe ich keine Idee, was da schief läuft. Zumal ich mit den Zugriffen über RTTI noch nicht besonders viel Erfahrung habe.

Ich vermute, dass ich irgendetwas prinzipielles falsch mache.
Kann mir jemand weiterhelfen?

[himitsu]

Wenn/da IsPublishedProp einen Boolean zurück liefert und keine Objektinstanz ala TFont, dann muß es natürlich knallen, wenn du versuchst diesen Boolean in einen TFont zu casten.

GetXyzProp


Für 'ne Codevervollständigung sind diese Bezeichner zwar grottenschlecht, aber TypInfo.Get.......

[Jasocul]

OK, Danke.
Da hatte ich wohl wirklich ein Brett vor dem Kopf.
Zum Glück habe ich gerade eine Pause gemacht und kann jetzt wieder frisch ans Werk gehen.