9.5 VCLSkin组件的使用分析和总结.docxVIP

VCLSkin 是个方便而且功能强大的界面加强型组件包。只要在程序的任何一个窗体里加入 SkinData 组件，设置好相关属性，则所有这个程序里出现的窗体（包括对话框）都具有设置好的界面风格。SkinStore 组件又可以把一些皮肤文件预先存在里面，供SkinData 随时调用，表现出程序的多种风格。下面简单地介绍它的用法。 先建立一个新工程，加入一些常见的组件。运行结果的界面如图9.18 所示。 然后加入一个SkinData 控件，把Active 属性设为True。再单击SkinStore 属性的带省略号的按钮，选择VCLSkin 自带的一个皮肤文件macos.skn。然后，编译，运行，结果如图 9.19 所示。 图 9.18 原始程序 图 9.19 加入VCLSkin 组件后的效果 此处将程序界面从原来古板的样貌变成 Mac Os 风格没有用一行代码，只设了 SkinDat a 的属性。下面我们结合 SkinStore 组件讲讲程序中“换肤”的做法。 在窗体上加入一个 SkinStore 组件，在 Object Inspector 中单击 Store 后面的带省略号的按钮，出现如图 9.20 所示的窗体。 单击 图标，新生成一个 SkinStore，可以像上面设置 SkinData 的 SkinStore 那样设置好它的属性。创建多个 SkinStore，存入多个皮肤。然后在窗体的按钮上加入如下代码（代码的作用是当程序运行中按下 Button1 时，SkinData1 会从 SkinStore1 中读取第 1 个皮肤， 并显示出来）： procedure TForm1.Button1Click(Sender: TObject); begin SkinData1.LoadFromCollection(SkinStore1,1); end; 类似地，加入以下代码： procedure TForm1.Button3Click(Sender: TObject); begin SkinData1.LoadFromCollection(SkinStore1,2); end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin SkinData1.LoadFromCollection(SkinStore1,3); end; “换肤”功能完成了。在程序中按下那几个按钮，程序界面的风格就会相应改变。图9.2 1 示出了两个例子。 图 9.21 VCLSkin 的另两种皮肤效果VCLSkin 的功能远不止如此，我们挑几个说一下： DataSkin 有个 DisableTag 属性。默认值是 99。如果窗体上哪个组件的 Tag 值是 99 的话，DataSkin 不会对这个组件起作用。 支持 MDI 窗体。 支持通用 Windows 对话框（打开，保存文件等）。 SkinControls 属性可以设置对哪类控件起作用。 在一个程序中不同窗体可以有不同皮肤风格。