AlphaControls，怎样实现定时改变皮肤

Question

在sSkinManager1中已经添加了几个皮肤文件，设置sSkinProvider1的makeskinmenu为true后，右键点击窗体标题可以自行选择皮肤，但是我想要实现每隔1小时自动循环改变皮肤，要怎么办呢？

Answer 1

最简单是用Timer控件，Interval属性中设置1小时（注意，单位是秒）
Ontimer事件中写改变皮肤的代码。

Answer 2

sSkinManager1.skinname:='皮肤名';

Answer 3

我这样说吧，我在窗体上放置1个button，我点击，窗体皮肤就更换
procedure TForm1.Button2Click(Sender: TObject);
begin
sSkinManager1.SkinName:='blueice';
end;皮肤还是没有更换成blueice。

Answer 4

可能是不能重绘的问题，楼主把这行代码写到create或者onshow事件看看。