delphi - 如何在Delphi 10 Seattle中设置默认系统样式？

Question

我试图将一些在Delphi XE8中可用的代码移植到Delphi 10 Seattle。

这段代码设置了我程序的默认系统样式，但是Delphi 10 Seattle中不存在SetSystemStyle方法。

TStyleManager.SetSystemStyle(Self);

Answer 1

我添加了Default_Style_Block_Pointer：TMemoryStream;到MainForm Var：块

我将这段代码放在MainForm.OnCreate事件中：

Default_Style_Block_Pointer:=TMemoryStream.Create;
  TStyleStreaming.SaveToStream(TStyleManager.ActiveStyle(Self),Default_Style_Block_Pointer,TStyleFormat.Binary);

我正在使用以下代码恢复默认样式：

     Default_Style_Block_Pointer.Position:=0; 
        TStyleManager.SetStyle(TStyleStreaming.LoadFromStream(Default_Style_Block_Pointer));