ParentFont aller Komponenten eines Forms setzen

[hoika]

Hallo #,

ich will alle ParentFont aller Komponenten auf False setzen.
Ich gehe wie immer vor (Components[], ComponentCount)
Geht hier nur leider nicht.
ParentFont scheint nicht irgendwo public zu werden, wie z.B. Caption in TControl.

Muss ich jetzt für jedes meiner Komponenten ein eigenes

Delphi-Quellcode:

Component:= Components[i];
if Component is TLabel then
begin
  TLabel(Component).ParentFont:= False;
end;
if Component is TEdit then
begin
  TEdit(Component).ParentFont:= False;
end;

Danke

Heiko

[Bernhard Geyer]

Nein, musst du nicht.
Über die Funktionen der RTTI (TypInfo.pas) kannst du das generisch machen.

[hoika]

Hallo,

RTTI wollte ich ja vermeiden ...
Trotzdem Danke.


Heiko

[Bummi]

einen hätt' ich noch

Delphi-Quellcode:

type

  THackControl = Class(Controls.TControl)
    public
    Property ParentFont;
  End;
...



  if Control is TControl then
    THackControl(Control).ParentFont := wasauchimmer;

end;

[Bernhard Geyer]

Zitat von hoika:

RTTI wollte ich ja vermeiden ...

Wieso das? Dein Delphi-programm verwendet es permanent.