delphi写一个fluent界面风格的uwp

Delphi 本身是不支持 UWP 平台的，但是可以使用 Delphi 的 FMX 框架来开发跨平台应用程序，其中就包括了支持 Windows 10 平台的 UWP 应用程序。

要创建一个 Fluent Design 风格的 UWP 界面，需要使用 Delphi FMX 中的 TStyleBook 组件来定义样式和主题。下面是一个简单的示例代码，演示了如何使用 TStyleBook 组件创建一个 Fluent Design 风格的 UWP 界面：

unit Main;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation,
  FMX.StdCtrls, FMX.Layouts, FMX.ListBox;

type
  TMainForm = class(TForm)
    StyleBook: TStyleBook;
    ToolBar: TToolBar;
    TitleLabel: TLabel;
    MainLayout: TLayout;
    ListBox: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    procedure LoadStyle(const AFileName: string);
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.fmx}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  LoadStyle('Fluent.style'); // 加载 Fluent Design 风格的样式
end;

procedure TMainForm.LoadStyle(const AFileName: string);
begin
  if FileExists(AFileName) then
  begin
    StyleBook.Clear;
    StyleBook.LoadFromFile(AFileName);
    StyleBook.ApplyStyle(Self);
  end;
end;

end.

在上面的代码中，我们创建了一个 TStyleBook 组件，并将其赋值给 MainForm 窗体的 StyleBook 属性。然后，我们在窗体的 OnCreate 事件中调用 LoadStyle 方法，传入我们定义的 Fluent Design 风格的样式文件名。在 LoadStyle 方法中，我们使用 StyleBook 的 LoadFromFile 方法来加载样式文件，并应用到 MainForm 窗体上。

在样式文件中，我们可以定义窗体、按钮、标签等控件的样式和主题。下面是一个简单的 Fluent.style 样式文件的示例代码：

object TStyleContainer
  object TStyleObject
    StyleName = 'MainFormStyle'
    object TLayout
      StyleName = 'MainLayoutStyle'
      Align = alClient
      object TListBox
        StyleName = 'ListBoxStyle'
        Align = alClient
        ItemHeight = 60
      end
    end
  end

  object TStyleObject
    StyleName = 'ToolBarStyle'
    object TToolBar
      StyleName = 'ToolBarBackgroundStyle'
      Height = 50
      object TLabel
        StyleName = 'TitleLabelStyle'
        Text = 'Fluent Design Style Demo'
      end
    end
  end

  object TStyleObject
    StyleName = 'ButtonStyle'
    object TButton
      StyleName = 'FlatButtonStyle'
      Width = 100
      Height = 32
      Text = 'OK'
    end
  end
end

在上面的样式文件中，我们定义了三种控件的样式和主题：MainForm、ToolBar 和 Button。其中，MainForm 是一个 TLayout 控件，包含一个 TListBox 控件；ToolBar 是一个 TToolBar 控件，包含一个 TLabel 控件；Button 是一个 TButton 控件。

通过在样式文件中定义控件的样式和主题，我们可以轻松地创建一个 Fluent Design 风格的 UWP 界面。当然，这只是一个简单的示例，实际上还有很多其它的控件和样式需要定义。如果想要深入了解 Delphi FMX 的使用，可以参考 Delphi 官方文档和教程。