如何获取TGroupBox主题字体颜色

Question

我想获得TGroupBox标题的字体颜色，所以我可以将该颜色分配给TLabel。

我想我需要使用GetThemeColor，但我似乎无法弄清楚使用哪些参数？

---

更新 - 这是我使用基于答案代码：

function GetGroupBoxTextColor: TColor; 
var 
    C: COLORREF; 
    ElementDetails: TThemedElementDetails; 
begin 
    Result := clWindowText; 
    if ThemeServices.ThemesEnabled then 
    begin 
    ElementDetails := ThemeServices.GetElementDetails(tbGroupBoxNormal); 
    if GetThemeColor(ThemeServices.Theme[teButton], ElementDetails.Part, ElementDetails.State, TMT_TEXTCOLOR, C) = S_OK then 
     Result := C; 
    end; 
end; 

Answer 1

我想这样的作品：

var 
    h: HTHEME; 
    clr: COLORREF; 
begin 
    h := OpenThemeData(Handle, 'BUTTON'); 
    if h <> 0 then 
    try 
     OleCheck(GetThemeColor(h, BP_GROUPBOX, GBS_NORMAL, TMT_TEXTCOLOR, clr)); 
    finally 
     CloseThemeData(h); 
    end; 

（使用OleAuto, UxTheme）