Fonts ein einem Formular ändern

[Uli Becker]

Hallo,

weiß jemand, wie man in einer Schleife die Fonts aller Controls in einem Formular ändern kann, die diese Eigenschaft besitzen, ohne jede Klasse getrennt ansprechen zu müssen.

z.B. wie (components[i] as TEdit).font.name ...

Mit ParentFont kann ich leider nicht arbeiten, da die verschiedenen Controls zwar die gleiche Schriftart, aber jeweils unterschiedliche Schrift-Formatierungen haben.

Danke...

Gruß Uli

[Falk Prüfer]

Hallo Uli,

da Du ja nur den Font von Controls ändern möchtest und alle TEdits, TLabels, etc. von TControl abstammen wäre
<pre>
(components[i] as TControl).font.name ...
</pre>
möglich. Vorher müßtest Du allerdings noch abchecken, ob es sich bei der Component tatsächlich um ein Control handelt.

Gruß Fal

[Uli Becker]

Hallo Falk,

(components[i] as TControl).font...

Eigenschaft existiert nicht! Das ist genau das Problem.

Gruß Ul

[Falk Prüfer]

Hm...
...Die Klasse TControl verfügt über eine große Anzahl von als protected deklarierten Eigenschaften und Methoden, die in abgeleiteten Klassen als published deklariert sind... Und dazu gehört leider auch Font.
Da fällt mir im Moment auch nichts weiter ein als jede Klasse gesondert abzufragen, da auch TGraphicControl und TWinControl das gleiche Problem haben.

Gruß Fal

[Uli Becker]

Alles klar. Danke, Falk.

Gruß Ul