用Delphi7.0实现漂亮的汉字窗口_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

用Delphi7.0实现漂亮的汉字窗口

作者：闵涛文章来源：闵涛的学习笔记点击数：556 更新时间：2009/4/23 18:25:10

　　在可视化开发的时代，窗体是绝大部分应用程序的核心，但是开发者也许已对Windows一成不变的方形窗体感到厌烦。其实巧妙地使用API函数即可实现汉字形状的窗体。本文的实例运行后将显示一个由“电脑报”三个汉字作为外形的窗体。当然你还可以利用本期讲的方法实现更有个性的汉字窗口。

　　设计思路

　　1　使用BeginPath和EndPath函数为窗体定义路径。

　　2　用PathToRegion将路径转换为Region数据。

　　3　调用SetWindowRgn按路径绘制窗体。

　　4　由于不规则窗体无系统菜单，因此程序中必须有关闭窗体的代码。

　　实现步骤

　　启动Delphi7，新建项目。前述的API函数在Delphi中均可直接调用，因此用户不需要声明，可直接输入下面的控件事件代码。

//窗体创建事件
procedure TForm1.FormCreateSender TObject　
var
　rgnHRGN
begin
　//设置文字颜色为红色
　form1.Color=clred
　//开始设置路径，参考API函数声明①
　beginpathcanvas.Handle　
　//设置背景为透明，参考API函数声明②
　setbkmodecanvas.HandleTRANSPA
　RENT　
　//设置字体
　canvas.Font.Name ='宋体'
　//设置字号
　canvas.Font.Size=100
　//将汉字“电脑报”设置为窗体形状路径
　canvas.Textout1515'电脑报'　
　//结束设置路径，参考API函数声明③，完成设计思路（1）
　endpathcanvas.handle　
　//将路径转换至区域，参考API函数声明④，完成设计思路（2）
　rgn=pathtoregioncanvas.handle　
　//改变窗体形状，参考API函数声明⑤，完成设计思路（3）
　setwindowrgnhandlergntrue　
end
　//鼠标按下的事件完成，进行设计思路（4）
procedure TForm1.FormMouseDownSender TObject Button TMouseButton Shift 　　TShiftState X Y Integer　
　begin
　　//如用户单击右键，则结束程序运行
　　if button=mbright then
　　　close
end
注：本文例子在Windows2000和Delphi7中测试通过。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： Delphi“流”实现文件加密器

下一篇教程： Delphi中用FastReport制作报表

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……