ch benutze diesen Code, um den Themen-Button zu malen:

var
  h: HTHEME;
begin
  if UseThemes then begin
    SetWindowTheme(Handle, 'explorer', nil);
    h := OpenThemeData(Handle, 'WINDOW');
    if h <> 0 then
    try
      DrawThemeBackground(h, Canvas.Handle, WP_CLOSEBUTTON, GetAeroState, ClientRect, nil);
    finally
      CloseThemeData(h);
    end;
  end
  else
    DrawFrameControl(Canvas.Handle, ClientRect, DFC_CAPTION, DFCS_CAPTIONCLOSE or GetClassicState)
end;

Dieser Code funktioniert einwandfrei, aber die gemalte Schaltfläche sieht aus wie unter Windows 7, auch unter Windows 8 oder 10. Ist es möglich, die Schaltfläche "Schließen" unter Windows 10 oder 8 zu malen?