问如何使用Delphi Seattle将自定义样式应用于自定义火猴组件

EN

首先，我不认为检查StyleLookup是正确的。此属性告诉组件在样式簿中查找此特定样式名称。

然后，尝试在组件级别加载样式文件。FMX的工作方式是这样的。您有一个样式簿，它加载样式文件，然后表单中的每个组件都使用该样式簿来定位由stylelookup值定义的样式名称。

在我的脑海中，这个行动过程应该能做好这项工作：

1. 按照您已经完成的操作，将样式文件添加到项目的资源中。假设您的组件具有名为"mycomponent“的样式，请在表单的OnCreate中以
2. 的形式添加一个样式本，将资源文件加载到TResourceStream中，然后使用TStyleBook.LoadFromStream
3. Now将最后一个加载到样式簿中您可以通过设置组件

的StyleLookup='mycomponent‘属性来访问该样式

希望这能有所帮助。

我找到了一个解决方案。感谢TMS软件公司的各位。应该使用TStyleStreaming类而不是TStyleManager类。我修改了我的代码，如下所示(现在一切正常)

function TMyComponent.GetStyleObject: TFmxObject;
var
style : string;
begin
  if (StyleLookup = '') then
  begin
    style := GetClassStyleName;
    Result := TControl(TStyleStreaming.LoadFromResource(HInstance,
    style, RT_RCDATA));
    Exit;
  end;
  Result := inherited GetStyleObject;
end;