Besten Dank! So funktioniert es!
Es fehlte zwar noch eine Zeile aber der Gedanke ist richtig.
Hier noch mal für alle:
Da die Eigenschaft "Parent" vom Typ TWinControl ist, leiten
wir davon eine neue Klasse TestWinControl ab. In dieser
ändern wir die Sichtbarkeit der Eigenschaft "Color" indem
wir sie vom Bereich "private" nach "public" verschieben:
Code:
TestWinControl = class(TWinControl)
public
property Color;
end;
Im untergeordneten Object können wir dann auf die Eigenschaft
"Color" des übergeordneten Objects zugreifen, indem wir die
"Parent" Eigenschaft mit der neuen Klasse casten:
Code:
ParentClr := TestWinControl(Parent).Color;