适用于多平台的Delphi多种样式

Question

我创建了表单并在其上附加了两个 TStylebook 。

第一个有Windows风格（ MetropolisUIBlack.vsf ），第二个有Android风格（ AndroidLight.fsf ）

在表单上创建我写了以下代码

procedure TMainForm.FormCreate(Sender: TObject);
begin
  {$IFDEF  MSWINDOWS}
    Self.StyleBook := WinStyle;
  {$ENDIF}
  {$IFDEF  ANDROID}
    Self.StyleBook := DroidStyle;
  {$ENDIF}
end;

问题是如果在设计时选择了Android风格并且我在Windows上运行应用程序，我会收到以下消息

  

您选择的样式不适用于您当前选择的样式   目标平台。您可以选择自定义样式或删除样式簿   允许FireMonkey在运行时自动加载本机样式

无论我在表单设计中选择什么，我如何根据平台设置样式簿？

Answer 1

您可以为同一样书中的每个平台指定默认的平台特定样式吗？

您可以通过双击打开StyleBook Editor的StyleBook图标来执行此操作。

然后在样式编辑器中，单击PLUS下拉列表附近的Platform按钮以添加所需的平台。

之后，只需切换到所需的平台，然后选择您想要使用的样式。