|
|
 |
用API函数在DELPHI中实现“非典型”窗体 |
热 ★★★★ |
|
用API函数在DELPHI中实现“非典型”窗体 |
|
作者：闵涛 文章来源：闵涛的学习笔记 点击数：864 更新时间：2009/4/23 18:37:59  |
|
|
用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进行编程，是一项很重要的技能，有时可以达到意想不到的效果。以上几种技巧旨在抛砖引玉，希望大家充分运用各种技巧，发挥自己想像，设计出更炫的窗体,美化自己的程序。如有疑问，欢迎来信联系（E-mail:iam229@sohu.com）。
[系统软件]InstallShield Express for delphi制作安装程序定… [常用软件]InstallShield Express制作Delphi数据库安装程序
[VB.NET程序]VB.NET中实现IEnumerator接口 [VB.NET程序]在VB中实现PickList功能
[Delphi程序]为什么选择Delphi.Net ？ [Delphi程序]《关于VisiBroker For Delphi的使用》(4)
[Delphi程序]Delphi 程序员代码编写标准指南 [Delphi程序]转贴：Conversion to Delphi 6: Missing unit Pro…
[Delphi程序]Borland Delphi 9 的新特性 [Delphi程序]Delphi 键盘码表
|
|
| 教程录入：mintao 责任编辑：mintao |
|
|
上一篇教程： Delphi程序设计之--惯用法
下一篇教程： 程序设计和调试中的几点总结 |
|
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| |
|
|
|
|
|
 |
同类栏目 |
 |
|
赞助链接 |
|
|
500 - 内部服务器错误。
|
|
|
|
|
|
