Man kann auch über
RTTI ein String-Property mit einem bestimmten Namen auslesen.
Das funktioniert dann für alle Komponenten.
Ich finde nur der bescheidenen D2007 Hilfe gerade die Funktion nicht.
Aber im Prinzip so:
Delphi-Quellcode:
if IsPublishedProp(control, 'Text') then
Result := GetStrProp(control,'Text')
else if IsPublishedProp(control, 'Lines') then
Result := (GetObjProp(control, 'TStrings') as TStrings).Text;