Ранее я задавал этот вопрос на таймфрейме Delphi XE2, и тогда ответ был довольноуродливый хак.

Теперь Delphi XE3 поддерживает темы, не относящиеся к клиенту, согласно официальным примечаниям к выпуску. Как вы делаете это в Delphi XE3 в Firemonkey FM2?

Я считаю, что это должно быть что-то связанное с книгой стилей, но я не могу понять это. Сама форма имеет & quot; EnableBorderStyling & quot; свойство, которое я установил в true, и я думаю, что мне нужно загрузить стиль, который содержит некоторые неклиентные данные темы, но я не могу найти стиль, который включает его.

Помощь не имеет ничего об этом предмете.

Update2 Хорошо, он не поврежден, просто у меня нет стиля, который содержит этот элемент стиля (как говорит RRUZ).

procedure TForm1.FormShow(Sender: TObject);
begin
  StyleBook := StyleBook1;
  WindowBorder.UpdateStyle;
end;

Update3Файлы стилей, кажется, находятся в двух разных местах, что сбивает с толку:

  C:\Program Files (x86)\Embarcadero\RAD Studio\10.0\Redist\styles\Fmx        
  C:\Users\Public\Documents\RAD Studio\10.0\Styles

Обратите внимание, что у меня нет Luna.Style (стиль firemonkey) в любом месте, однако 5 секунд с инструментом редактора стилей. (Откройте и сохраните как, и измените тип на .Style, и у меня был один!)

Update4Ответ RRUZ работает, но в моей системе (Windows 8 RTM) стили, не относящиеся к клиенту, выглядят неправильно, они имеют белые углы вокруг областей полностью окрашены. Изменение размера окна заставляет его исчезнуть, и я очень уверена, что у меня будет возможность принудительно вызвать WM_NCREPAINT или что-то еще и заставить его исчезнуть.