delphi黑色背景模式

---

uses  Vcl.Styles, vcl.Themes;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TStyleManager.LoadFromFile('Windows10Dark.vsf');
  TStyleManager.SetStyle(TStyleManager.StyleNames[1]);
end;

　　

 //VCL 的样式文件 *.vsf 在 X:Program FilesEmbarcaderoRAD Studio9.0Rediststylesvcl