delphi - Delphi Firemonkey-运行时加载样式

我已经从...... \ RAD Studio \ 9.0 \ Styles中将几个示例样式作为资源加载到我的项目中，并且“只是”试图在运行时加载其中的一个。

我正在使用以下代码来尝试执行此操作：

var
  vResourceStream : TResourceStream;
begin

  vResourceStream := TResourceStream.Create( HInstance, 'DARKSTYLE', RT_RCDATA );

  try
    StyleBook1.LoadFromStream( vResourceStream );
  finally
    vResourceStream.Free;
  end;

它可以编译，但是当我运行它时，我遇到了很多错误，第一个是“ Property Align不存在”，然后是“读取TStyleBook.Align：Property Align不存在”，并且似乎为更多属性做了此操作，高度等

有人可以给我一些如何解决的建议吗？

最佳答案

我并不是对FMX有所了解，但是AFAIU .style文件是资源定义文件。您应该阅读其资源，而不是从流中读取样式书对象：

StyleBook1.Resource.LoadFromStream( vResourceStream );