Ja, habe ich gefunden, geklappt auch.
Eigentlich brauche ich immer nur einen weiß gefärbten Form.Caption. Themes sind nicht möglich. Hat jemand ein Stück Quelltext wie man in Windows 10 den Caption selber zeichnen kann?
Sowas funktioniert nicht:
Code:
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
...
dc := GetWindowDC(
Handle);
Rectangle(
dc, 0, 0, Width, Height);
ReleaseDC(
Handle,
dc);
...
end;