按照计划本次应该是登录窗体绑定数据,但是界面看起来很不美观,一个好的系统,操作界面漂亮,能给操作人员一种赏心悦目的心情是很重要的。因此我们先把窗体的界面穿上美丽的衣服。我们知道delphi支持强大的第三方控件,这也是众多delphi爱好者喜欢使用她的原因之一。而在这些控件中,vclSkin是非常优秀的界面控件,不用编码,只用将vclSkin组件拖入窗体,设置一下属性即可。如果实现换肤功能,也只需写少量代码。
下面就开始给我们程序的窗体穿衣服,在我们的主窗体frmMain上放入SkinData1,然后设置此组件的属性:SkinStore为皮肤文件VistaXP-VISTAXPB2.skn,Active为True。然后运行程序,我们的主窗体已经穿上了很漂亮的具有Vista界面的衣服。而子窗体不用做任何设置即可穿上和主窗体一样漂亮的衣服。那如何也让登录窗体穿上呢?放入SkinData1组件到登录窗体上,然后做相同的设置,可是运行程序出错,为什么?只要将登录窗体中SkinData1的属性Skinformtype设置成sfOnlyThisForm即可。至此已经给我们的系统穿上了美观的界面了。