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 Files\Embarcadero\RAD Studio\9.0\Redist\styles\vcl\
|
请发表评论