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

Question

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

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

var
  vResourceStream : TResourceStream;
begin

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

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

它编译好，但是当我运行它时，我得到了一堆错误，第一个是“属性对齐不存在”，然后是“读取 TStyleBook.Align 时出错：属性对齐不存在”，这似乎是为了更多的属性, 身高等

有人可以给我一些关于如何解决它的指示吗？

Answer 1

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

StyleBook1.Resource.LoadFromStream( vResourceStream );