环境:Win11 + VFP9 SP2 7423
在顶层表单的 Init 事件中,添加如下代码:
DECLARE INTEGER DwmSetWindowAttribute IN dwmapi.dll integer, integer, integer @, integer
nColor = RGB(128,0,0)
DwmSetWindowAttribute(This.hWnd, 34, nColor, 4)
DwmSetWindowAttribute(This.hWnd, 35, nColor, 4)
nColor = RGB(255, 192, 192)
DwmSetWindowAttribute(This.hWnd, 36, nColor, 4)