[Lazarus] font.name=default

[Hans-Peter Diettrich]

Philippe schrieb:
> just for information ...
> 
> I tried to use your suggestion ... it works ... but ... I am using 
> TGroupBox in TGroupBox in TGroupBox ...
> 
> your example just loops on the top level controls of the form ... 
> needing to use recursive function to go through contained group boxes 
> ... what I´ll do later.

Then use Components[] instead of Controls[].

DoDi