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\