xe5 TStyleManager 界面风格
#include <System.SysUtils.hpp>
#include <System.IOUtils.hpp>
void __fastcall TForm8::FormCreate(TObject *Sender)
{
String dir, fileName, styleName;
dir = GetEnvironmentVariable("Delphi") + "\\Redist\\styles\\vcl";
TStringDynArray sl;
sl = TDirectory::GetFiles(dir, "*.vsf");
for (int i = 0; i < sl.Length; i++)
{
TStyleManager::LoadFromFile(sl[i]);
}
ListBox1->Items->AddStrings( TStyleManager::StyleNames);
}
// ---------------------------------------------------------------------------
void __fastcall TForm8::ListBox1Click(TObject *Sender)
{
TStyleManager::SetStyle(ListBox1->Items->Strings[ListBox1->ItemIndex]);
}