Delphi Alpha皮肤控件使用方法

//用于刷新控件颜色。

FsSkinManager.BeginUpdate;
FsSkinManager.EndUpdate(True);

//动态选择皮肤

begin
if not FIsswitch then exit;
if not Assigned(FsSkinManager) then Exit;
LockWindowUpdate(Application.Handle);
FsSkinManager.BeginUpdate;
try
try
FsSkinManager.SkinDirectory := DirectoryListBox1.Directory;
FsSkinManager.SkinName := ExtractFileName(FileListBox1.FileName);
SetSkinManager(FsSkinManager, DirectoryListBox1.Directory, ExtractFileName(FileListBox1.FileName));
// AddControlForSkin(FsSkinManager);
FsSkinManager.Active := True;
except

end;
finally
FsSkinManager.EndUpdate(True);
LockWindowUpdate(0);
end;
end;