Eigene Anwendung mit aktueller Windows-Schriftart

[Ganymed]

Hi!

Mir ist kürzlich aufgefallen, dass meine Anwendung nicht mit der in Windows eingestellten Schriftart ("Tahoma") arbeitet, sondern immer nur mit der Delphi-Vorgabe "MS Sans Serif".
Das MainForm und alle Komponenten haben "ParentFont" auf "True", nur scheint der Parent nicht Windows bzw. der Desktop zu sein, sondern NIL...
Im Prinzip ist es keni Problem, bei OnCreate des Formulars die Schrift einzustellen. Nur: wie kann ich die aktuell in Windows eingestellte Schriftart ermitteln?

Außerdem ist mir aufgefallen, dass wenn ich die Schriftart der MainForm ändere, diese nicht an weitere Formulare weitergereicht wird... D.h. ich muss im OnCreate-Ereignis "Font := Application.MainForm.Font;" setzen. Das ist ein bißchen blöde, da ein Form ja auch die ParentFont-Eigenschaft hat.

Für Hilfe und Denkanstöße bin ich dankbar ^^

Grüße
Ganymed

(Ich arbeite mit Delphi 7)

[MCXSC]

Auch wenn der Thread schon alt ist, ich will mich hier einmal anschließen und nochmals nachfragen...

[Jeopardize]

Hi,
Wenn ich mich nicht irre, könnte es so gehen: :gruebel:

Delphi-Quellcode:

Screen.IconFont;

Oder:

Delphi-Quellcode:

Screen.MenuFont;

[Namenloser]

Du hast zwar gerade auf einen über ein halbes Jahr alten Thread geantwortert, aber trotzdem danke, das wollt ich schon imemrmal wissen :mrgreen: