Question

那个知道在Delphi里面怎样运用Vclskin组件

就是说要在程序运行中，通过菜单选择皮肤，应该怎么做啊。那位好人能够解答真是十分的感谢。

Answer 1

strName:= ExtractFilePath(Application.ExeName)+'Skin\目标Skin文件';
frmMain.SkinData1.Active:= False;
if FileExists(strName) then
begin
frmMain.SkinData1.LoadFromFile(strName);
frmMain.SkinData1.Active:= True;
end else
begin
frmMain.SkinData1.LoadFromFile('');
frmMain.SkinData1.Active:= False;
end;