FMX风格问题与模式表单(FMX Style issue with modal forms)

我正在开发采用Delphi XE7更新1.我有一个基本形式从各种形式在我的应用程序驱动的iOS和Android的多设备应用：

object frmBaseForm: TfrmBaseForm
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 480
  ClientWidth = 640
  StyleBook = sbStyle
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  DesignerMasterStyle = 0
  object sbStyle: TStyleBook
    Left = 8
    Top = 8
    ResourcesBin = {
      464D585F5354594C4520322E3501060B4465736372697074696F6E039F00060E....
  end
end

它有一个TStyleBook自定义样式，和下面的代码：

procedure TfrmBaseForm.DoClose(var CloseAction: TCloseAction);
begin
  inherited;

  if ModalResult <> mrNone then
    CloseAction := TCloseAction.caFree;
end;

当我运行我的应用程序，一切正常。 但是，只要一个模态窗体显示和关闭（例如，在执行上面的代码），我的所有形式的风格被破坏（窗体和控件的背景色更改为黑色，...）

有任何想法吗？

文章来源: FMX Style issue with modal forms