XP系统开启 Themes 并在窗口中添加 TXPManifest 后，怎么改变 GroupBox 标题字体颜色？

Question

如题，我用Delphi7。
请大家帮帮忙，先谢过了。

Answer 1

在程序的USES部分删除Xpman这个单元，就可以恢复了

Answer 2

好像不行，建议使用VCLSkin之类的皮肤控件来处理

Answer 3

hongqi162(失踪的月亮)
那样就没有了XP效果了呀，而我是想要这种效果的，同时也想改变GroupBox字体颜色。gobiz(拔剑容易收剑难) 
谢谢！不过，不到迫不得已的情况下，不太想用第三方控件。
还有，自己继承类生成控件的方式觉得也不大方便，重装Delphi后还得重新注册控件。最好是用纯代码改变的。在 TCustomGroupBox 的 protected 的 Paint 过程中，有这样的代码
    if ThemeServices.ThemesEnabled then
    begin
      省略..........
      if Text <> '' then
        ThemeServices.DrawText(Handle, Details, Text, CaptionRect, DT_LEFT, 0);
    end
    else
      省略..........各位高手能找到突破点吗？

Answer 4

如果不怕麻烦,请用windows API for XP
setwindowsprolist

Answer 5

谢谢上面两位，我去试试回 sxqwhxq(步青云) ，XP效果只在XP以上系统上用，不用担心。

Answer 6

brightyang()怎么找不到你说的那个函数啊。Google和百度都搜不到。是笔误了吗？