有“背景”的窗体

 

    许多网页都有背景图案，这样可以使页面看起来更加醒目。不过在Ｄｅｌｐｈｉ 里你也可以设计这种类型的窗体。马上会想到的一个方法就是使用ｉ ｍａｇｅ 构件，然后指定一幅图片就可以啦。这样做当然是可行的，但是一幅可以充满整个窗体的ＢＭＰ图，要占用很多的内存空间，这样就划不来了。最好的办法是只下载一幅很小的ＢＭＰ 图，然后把它粘贴到整个窗体上。
  这里我没有采用Ｉｍａｇｅ 构件，而是使用了Ｂｉｔｍａｐ 构件，用它来下载一幅很小的位图。首先是在窗体的Ｐｕｂｌｉｃ 部分加入变量定义：Ｂｉｔｍａｐ ：ＴＢｉｔｍａｐ ；3701-1.gif (4168 bytes)然后在窗体的Ｏｎ—Ｃｒｅａｔｅ 事件中生成此对象，代码如下：
  ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．ＦｏｒｍＣｒｅａｔｅ（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；ｂｅｇｉｎ Ｂｉｔｍａｐ ：＝ＴＢｉｔｍａｐ ．Ｃｒｅａｔｅ ；Ｂｉｔｍａｐ ．ＬｏａｄＦｒｏｍＦｉｌｅ（＇１．ｂｍｐ＇）；／／图文件１．ｂｍｐ 只有１ＫＢ大小ｅｎｄ ；第三步是在窗体的ＯｎＰａｉｎｔ 事件中把位图的图案粘贴到整个窗体上。添加代码如下：ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．ＦｏｒｍＰａｉｎｔ（Ｓｅｎｄｅｒ ：ＴＯ—ｂｊｅｃｔ）；ｖａｒｘ，ｙ：Ｉｎ—ｔｅｇｅｒ ；ｂｅｇｉｎ ｙ ：＝０；ｗｈｉｌｅ ｙ ＜Ｈｅｉｇｈｔ ｄｏｂｅｇｉｎｘ ：＝０；ｗｈｉｌｅ ｘ ＜Ｗｉｄｔｈ ｄｏｂｅｇｉｎＣａｎｖａｓ ．Ｄｒａｗ（ｘ，ｙ，Ｂｉｔｍａｐ）；ｘ ：＝ｘ ＋Ｂｉｔｍａｐ ．Ｗｉｄｔｈ ；ｅｎｄ ；ｙ ：＝ｙ ＋Ｂｉｔｍａｐ ．Ｈｅｉｇｈｔ ；ｅｎｄ ；ｅｎｄ ；最后不要忘了在窗体的ＯｎＤｅｓｔｒｏｙ事件中释放Ｂｉｔｍａｐ 对象。具体代码：Ｂｉｔｍａｐ ．Ｆｒｅｅ ；好了，这样窗体显示时就会像网页那样带有背景（如图所示），而且并没占多大的内存空间。