Holgerwa - Mo 06.11.06 20:55
Titel: Font für Anwendung ändern
Hallo,
ich möchte für eine Anwendung den in den Controls angezeigten Font bei Bedarf ändern. Werden also z.B. alle Controls mit "Times Roman" angezeigt, so möchte ich per Button alle z.B. auf "Arial" umschalten.
Delphi-Quelltext
1:
2:
3:
| for i := 0 to Form.ComponentCount - 1 do
if Form.Components [i] is TControl then
TControl (Form.Components [i]).Font := 'Arial'; |
Das funktioniert leider nicht, weil die Font-Eigenschaft von TControl protected ist.
Wie könnte man das machen? Ist TControl als Basisklasse zur Entscheidung, ob eine Font-Eigenschaft vorhanden ist, sinnvoll?
Danke!
Holger
Holgerwa - Mo 06.11.06 22:27
Hallo,
ich habe diesen Beitrag gefunden:
http://www.delphi-library.de/viewtopic.php?t=28204
Jetzt kann ich von jeder Komponente aus Form.Componente[i] feststellen, ob die Eigenschaft 'Font' existiert. Der erste Schritt ist getan.
Aber wie komme ich nun an 'Font.Name', um diesen zu ändern?
Holger