Parent.Color ermitteln bei ParentColor=False

[dummzeuch]

Zitat von skyobserver:

Gib es eine Möglichkeit die Eigenschaft "Color" des Parent-Objectes
zu ermitteln, wenn "ParentColor" auf False steht?
Ich möchte die eigene Eigenschaft "Color" setzen und trotzdem die
Parent "Color" ermitteln.

FColor ist "private" und die property "Color" bei TWinControl noch
nicht "published...

Delphi-Quellcode:

type
  TWinControlHack = class(TWinControl)
  end;

function TWinControl_GetColor(_ctl: TWinControl): TColor;
begin
  Result := TWinControlHack(_ctl).Color;
end;

(Untested.)