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

======================================================
注：本文源代码点此下载
======================================================

用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;

这里主要用到了三个api函数:

函数原型:bool beginpath(hdc hdc//设备环境的句柄)

函数功能:开始接收当前设备环境的路径轨迹;

函数原型:bool endpath(hdc hdc//设备环境的句柄)

函数功能:停止接收并将已接收的路径轨迹赋给当前设备环境的句柄

函数原型bool textout(

hdc hdc, // handle of device context

int nxstart, // 起始位置的x坐标

int nystart, // 起始位置的y坐标

lpctstr lpstring, // 字符串地址

int cbstring//字符串所包含字符数(注意一个汉字占两个字符)

)

函数功能:在指定位置绘制给定字符串。

小结:学会熟练使用api进行编程,是一项很重要的技能,有时可以达到意想不到的效果。以上几种技巧旨在抛砖引玉,希望大家充分运用各种技巧,发挥自己想像,设计出更炫的窗体,美化自己的程序。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/