[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 >>

[bitsetter]

Hallo,

mit einer Rekursion könnte man sonst noch an die FensterHandle aller WinControls des Fensters kommen und dann jeweils den Font setzen.

EDIT: Mit GetWindow() könnte man eine Rekursion programmieren.

[turboPASCAL]

Äh, wItems[n] ist ein Array das die Handles der WinCtrl's enthält.
Was ich meine ist die Möglichkeit alle auf einmal zu setzen. Wenn man
einen Dialog zB. als Dialogresource erstellt, werden alle WinCtrl's
automatisch auf den Font des Dialogs gesetzt. Das geschieht durch DS_SETFONT.

Nun denk ich mal dass es das für "gemeine" Windowsfenster auch geben muss.
WM_SETFONT hilft in diesem Fall nicht weiter.