Delphi XE2 两句代码实在随机换肤

1、先在Project--> Operation --->  Application ---> Appearance，把所有的皮肤都勾选了。

2、Uses  Vcl.Themes 单元；

3、填写代码

var li_Count: Integer;
begin
  Randomize;
  li_Count := High(TStyleManager.StyleNames);
  TStyleManager.SetStyle(TStyleManager.StyleNames[Random(li_Count)]);
end;