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

来源：Linuxdby.com 作者：Webmaster 时间：2007-06-05 点击： [收藏] [投稿]

用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上绘制的轮廓

如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一篇：程序设计和调试中的几点总结下一篇：Delphi组件与属性编辑器

【文章评论】【收藏本文】【推荐好友】【打印本文】【我要投稿】【论坛讨论】

更多相关文章

·如何用Delphi制作录音程序

·谈Delphi编程中“流”的应用

·如何把数据库的内容写入到Word文档中？

·从实作标题栏按钮开始浅谈组件的制作

·“98五笔字型输入法”大批量造词

·关于Delphi大Bug的更详细的例子

·不知您是笨蛋，还是我是笨蛋，关于Delphi的大Bug

·剖析TThread类

·理解类引用这种类型

·改良控件－Delphi自带控件Bug的消除