小小一个设置程序高级感拉满

手动设置

结果如下

代码设置：

procedure TForm1.Button1Click(Sender: TObject);
begin
TStyleManager.TrySetStyle(cbxVclStyles.Text);
end;


procedure TForm1.FormCreate(Sender: TObject);
var
StyleName:string;
begin
for StyleName in TStyleManager.StyleNames do
cbxVclStyles.Items.Add(StyleName )
end;

 结果如下：