用Delphi实现简单的不规则窗体

不规则窗体在播放器中比较常见，如winmap，往往能达到很酷的效果。今天有朋友在问，顺便复习一下。

1.   建立工程后,设定 Form1的下面三个属性
    BorderStyle   =   bsNone
    TransparentColor   =   True
    TransparentColorValue   =   clWhite     //将会透明的颜色,在此设为白色
2.放个Image1在Form上,
    Image1.Align   =   alClient
3.导入一张形状不规则的图片入Image1

这样,运行后,Image1上白色的部分都会不见，整个窗体就是图片的形状了。

在XP系统，delphi7上实验成功，如图，做了一个树叶形状的窗体。