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;

它编译好了，但是当我运行它时，我得到了一堆错误，第一个是'Property Align不存在'然后'错误读取TStyleBook.Align：属性Align不存在'并且似乎这样做是为了一个更多属性，高度等。

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

Answer 1

不是我对FMX有所了解，但AFAIU .style文件是资源定义文件。您应该阅读其资源：

，而不是从流中读取样式簿对象

StyleBook1.Resource.LoadFromStream( vResourceStream );