FireMonkey 能將目前使用的 Style 導出成文件，它提供二種文件格式，請看下列代碼：

*.style

procedure TForm1.Button1Click(Sender: TObject); var Stream1: TFileStream; beginif TStyleManager.ActiveStyle(Self) <> nil thenbeginStream1 := TFileStream.Create('d:\test.style', fmCreate); // 假設文件要儲存在 d:\test.styleTStyleStreaming.SaveToStream(TStyleManager.ActiveStyle(Self), Stream1, TStyleFormat.Text);FreeAndNil(Stream1);end; end;

*.fsf

procedure TForm1.Button1Click(Sender: TObject); var Stream1: TFileStream; beginif TStyleManager.ActiveStyle(Self) <> nil thenbeginStream1 := TFileStream.Create('d:\test.fsf', fmCreate); // 假設文件要儲存在 d:\test.fsfTStyleStreaming.SaveToStream(TStyleManager.ActiveStyle(Self), Stream1, TStyleFormat.Indexed);FreeAndNil(Stream1);end; end;

XE8 格式支持：

TStyleFormat = (Indexed, Binary, Text);

轉載于:https://www.cnblogs.com/onechen/p/4646752.html

總結

以上是生活随笔為你收集整理的FireMonkey 导出目前 Style 另存文件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。