MessageDlg在两个Form中显示的结果不一样

先看下面这两个对话框的显示，正如你看到的，效果不一样。

而这两个对话框都是用下面这句显示的，只不过，在两个Form中调用。

       MessageDlg('是否退出？', System.UITypes.TMsgDlgType.mtConfirmation,
           [System.UITypes.TMsgDlgBtn.mbOK, System.UITypes.TMsgDlgBtn.mbCancel], 0,
           procedure(const AResult: TModalResult)
           Begin
               if AResult = mrok then
               Begin
                     .....
               End;
           End);

为什么会不一样呢？

问题的原因查到了，第一个样式，是因为所在的Form没有使用StyleBook,而第二个使用了StyleBook.本来我是把StyleBook的UseStyleManager设置成True,做为全局来用的，但对于MessageDlg没启到作用。这应算是XE8的一个小问题了！

该怎么解决呢？

找到FMX.Helpers.Android单元，将GetNativeTheme改成：

function GetNativeTheme: Integer;
var
   LStyleDescriptor: TStyleDescription;
begin
   Result := 0;
   if not IsGingerbreadDevice and (Screen <> nil) and (Screen.ActiveForm <> nil)
         then
   begin
     if (Screen.ActiveForm.StyleBook <> nil) then
     begin
         LStyleDescriptor := TStyleManager.FindStyleDescriptor(Screen.ActiveForm.StyleBook.Style);
         Result := GetThemeFromDescriptor(LStyleDescriptor);
     end
     else
     begin
         LStyleDescriptor := TStyleManager.FindStyleDescriptor(TStyleManager.ActiveStyle(nil));
         Result := GetThemeFromDescriptor(LStyleDescriptor);
     end;
   end;

end;

转自：http://blog.sina.com.cn/s/blog_44fa172f0102vgo9.html