Tform.Caption, Font ändern

[Michl]

Message WM_NCPAINT kommt offenbar nicht durch.

So auch nicht ?

Code: Alles auswählen

procedure WMNCPaint(var Msg: TMessage); message WM_NCPAINT;

Bei mir, unter Win7, kommt sie im Win32Callback an, wird bearbeitet und nicht weitergeleitet. Nicht desto trotz kann man den Code, den man per Suchmaschine findet auch z.B. in den OnPaint-Eventhandler packen und sich das Ergebnis anschauen (z.b. http://www.delphipages.com/forum/showthread.php?t=52283 oder http://www.experts-exchange.com/Web_Dev ... 08523.html).

Dann stell es im Betriebssystem ein. Es ist ja dann für dich bei allen Programmen zu "kümmerlich".

Da geht dann, unter Windows, sowas: http://www.greatis.com/delphicb/tips/li ... nfont.html