如何设计firemonkey的style样式

您好，在窗体上添加一个 TStyleBook(StyleBook1), 可以载入、编辑、另存这些样式.
编辑 StyleBook1 后, 可以把它直接赋给窗体的
StyleBook 属性:
procedure TForm1.Button1Click(Sender: TObject);
begin
Self.StyleBook := StyleBook1; //只作用于当前窗体
end;
窗体的 StyleBook 属性既然也是 TStyleBook 对象, 可以直接使用它:
procedure TForm1.Button1Click(Sender: TObject);
begin
StyleBook := TStyleBook.Create(Self); //默认情况下, 窗体的 StyleBook 还没有建立
StyleBook.FileName := '样式文件'; //或者用下一行
//StyleBook.Resource.LoadFromFile('样式文件'); //TStyleBook 是用 Resource(TStrings) 储存数据的
end;
单独修改控件样式可以使用 StyleLookup 属性, 如:
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.StyleLookup := 'checkbox';
end;
//在设计时可从控件的右键菜单
*.style 文件中 StyleName 命名有约定(这是我猜的):
1、类名(去掉前面的T) + 'style' //这是独立控件的样式名称
2、类名(去掉前面的T) //这是控件子部件的样式名称
3、既然有了命名约定, 控件可以根据自己的类名去套用, 所以会发现大多数控件的 StyleLookup 属性并无赋值
4、修改控件或子部件的样式都应该通过 StyleLookup 属性, 而不是 StyleName(我都觉得 StyleName 这个属性有点多余).

https://zhidao.baidu.com/question/1990005041987166587.html