delphi开发日志——换肤，给程序穿上美丽的外衣

按照计划本次应该是登录窗体绑定数据，但是界面看起来很不美观，一个好的系统，操作界面漂亮，能给操作人员一种赏心悦目的心情是很重要的。因此我们先把窗体的界面穿上美丽的衣服。我们知道delphi支持强大的第三方控件，这也是众多delphi爱好者喜欢使用她的原因之一。而在这些控件中，vclSkin是非常优秀的界面控件，不用编码，只用将vclSkin组件拖入窗体，设置一下属性即可。如果实现换肤功能，也只需写少量代码。

下面就开始给我们程序的窗体穿衣服，在我们的主窗体frmMain上放入SkinData1，然后设置此组件的属性：SkinStore为皮肤文件VistaXP-VISTAXPB2.skn，Active为True。然后运行程序，我们的主窗体已经穿上了很漂亮的具有Vista界面的衣服。而子窗体不用做任何设置即可穿上和主窗体一样漂亮的衣服。那如何也让登录窗体穿上呢？放入SkinData1组件到登录窗体上，然后做相同的设置，可是运行程序出错，为什么？只要将登录窗体中SkinData1的属性Skinformtype设置成sfOnlyThisForm即可。至此已经给我们的系统穿上了美观的界面了。