用API函数在DELPHI中实现“非典型”窗体[1]

                             用api函数在delphi中实现“非典型”窗体
    现在的一些共享软件特别是一些多媒体播放器软件为了吸引用户，很注重程序界面的设计。实际上，我们使用api函数也可以实现那些好看又另类的效果。
    1.异形窗体
    窗体只能是方的吗？不是，还可以有其他形状。这要用到两个win32 api函数。首先用createroundrectrgn()函数在窗体内界定一个椭圆形区域。这里所指的区域（region）是一个特殊的api对象，我们可以在区域内部进行填充和剪裁等操作，从而定义窗体的外部特征。然后调用setwindowrgn()函数绘制，更进一步还可以再用combinergn()函数来合并多个区域，例如在delphi的单元文件中加入以下代码：
    procedure tform1.formcreate(sender: tobject);
    var
      fregion1:thandle;
      fregion2:thandle;
    begin
      fregion1:=createroundrectrgn(20,20,200,200,300,300);//界定一个椭圆区域
      fregion2:=createrectrgn(170,170,400,400);//界定一个矩形区域
      combinergn(fregion1,fregion1,fregion2,rgn_or);//将两个区域连接起来
      setwindowrgn(handle,fregion1,true);//对连接后的区域进行绘制
    end;
    程序段中的createroundrectrgn()函数用来创建一个圆角矩形区域，它的原型为：
    hrgn createroundrectrgn(
    int nleftrect, // 左上角的x坐标
    int ntoprect, // 左上角的y坐标
    int nrightrect, // 右下角的x坐标
    int nbottomrect, // 右下角的y坐标
    int nwidthellipse, //圆角所在椭圆的宽
    int nheightellipse  // 圆角所在椭圆的高
    );
    其他图形如多边形、椭圆形等都有对应的api函数，它们的原型如下：
    hrgn createellipticrgn(int nleftrect,int ntoprect,int nrightrect,int nbottomrect)
    hrgn createellipticrgnindirect( const rect *lprc)
    hrgn createpolygonrgn(const point *lppt,int cpoints, int fnpolyfillmode)
    hrgn createpolypolygonrgn(const point *lppt,const int *lppolycounts,int ncount,int fnpolyfillmode)
    hrgn createrectrgn(int nleftrect,int ntoprect,int nrightrect,int nbottomrect)
    hrgn createrectrgnindirect(const rect *lprc)
    以上函数的参数很好理解，用来说明图形内置矩形的坐标或指向该矩形。重点来看一下另外两个函数：
    函数原型：setwindowrgn(
              hwnd hwnd，         //当前窗体的句柄
              hrgn hrgn,          //当前区域的句柄
              bool bredraw，      //重绘标志
              )
    函数功能：该函数把已创建的区域的句柄作为参数传递给当前窗体的句柄，并在该区域范围内绘制窗体；
    函数原型：combinergn(
              hrgn hrgndest,  // 连接目的区域的句柄
              hrgn hrgnsrc1,  // 第一个连接源区域的句柄
              hrgn hrgnsrc2,  // 第二个连接源区域的句柄
              int fncombinemode  // 连接模式
              )
    函数功能：该函数将两个区域合并为一个新的区域,其中连接模式可取以下值：
    参数值          作用
    rgn_and         由区域1与区域2的共有部分即交集创建新的区域
    rgn_copy        创建区域1的副本作为新的区域
    rgn_diff        连接属于区域1但不属于区域2的部分为新的区域
    rgn_or          连接区域1和区域2的所有部分即并集
    rgn_xor。     连接区域1和区域2的所有部分即并去掉共有部分
    2.空心窗体
    这种窗体的特点是好端端的一个窗体，中间被挖了一部分。例如在delphi的单元文件中加入以下代码：
    procedure tform1.formcreate(sender: tobject);
    var
      fregion3:thandle;
    begin
      canvas.font.name:='华文行楷';//设置字体 
      canvas.font.size:=100;//设置字号
      beginpath(canvas.handle); //得到vanvas上绘制的轮廓
      textout(form1.canvas.handle,0,20,'程序春秋',8);//将“程序春秋”四个字所占区域抠掉
      endpath(canvas.handle);
      fregion3:=pathtoregion(canvas.handle);//将以上区域赋给窗体
      setwindowrgn(handle,fregion3,true);//开始绘制
    end;