[nonVCL] Font für Fenster und dessen Controls setzen ?

[turboPASCAL]

Hi,

ich mal wieder. Ich suche eine Möglichkeit für ein selbst erstelltes Fenster via CreateWindow
und Co sowie dessen Controls, also Buttons, Checkboxen usw. in einem Rutsch zu setzen.
Leider habe ich bis jetzt nichts finden können. Gibt es denn eine Möglichkeit ?

Meine bisherige Lösung schaut so aus:

Delphi-Quellcode:

// wItems[n] besitzt das FensterHandle eines Controls

for i := 0 to High(wItems) do
          PostMessage(wItems[i], WM_SETFONT, INTEGER(hFont2), MAKELPARAM (1, 0));

>> Crosslink >>