Problemas al cambiar recurso Fuente

[MAXIUM]

Al momento de cargar el formulario tengo el siguiente código

Código Delphi [-]
AddFontResource(PChar(Directorio + 'DOSASCII.TTF'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

Nunca me había dado problemas y todo funcionaba bien hasta que...

El problema ahora es que la aplicación no termina de cargar y solo eliminado la línea SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); se "soluciona el problema"

Lo mismo al finalizar la aplicación.

Si no me he dado a entender me avisan

[tmsanchez]

Estoy dando mantenimiento (enero 2022) a una aplicación que se hizo en 2010 y pasaba lo mismo, encontré esta solución: en lugar de usar SendMessage se debe usar SendNotifyMessage:



SendNotifyMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);


Aquí la explicación:


https://stackoverflow.com/questions/...roadcast-hangs