Fonts in einer Form resetten

[Shark99]

Ich versuche die Fonts aller Controls einer Form zu resetten.

Dieser Code lässt sich leider nicht compilieren:

Delphi-Quellcode:

var i: integer; c: TComponent;
begin
  for i := 0 to Form1.ComponentCount - 1 do
  begin
     c := Form1.Components[i];
     if (c is TControl) then (c as TControl).ParentFont := True;
  end;
end;

Ich bekomme die Fehlermeldung: [Error] MainUnit.pas(4884): Undeclared identifier: 'ParentFont'

Was ich leider überhaupt nicht verstehe, da ein TControl das ParentFont property hat.

[Fussball-Robby]

Zitat von Shark99:

Was ich leider überhaupt nicht verstehe, da ein TControl das ParentFont property hat.

Hey, ParentFont ist bei TControl als protected deklariert, was bedeutet, dass nur die eigene Klasse und Nachfolger ebendieser Klasse auf diese Eigenschaft zugreifen können.

[Shark99]

Danke!