用Delphi7.0实现漂亮的汉字窗口_Deiphi窗体文章_Deiphi_编程开发

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

日期：2008-10-20 22:11:39　　　　来源：

　·用Delphi实现24位真彩色图标　·漂亮美眉滤镜和蒙板抠图法
　·平面图形设计与汉字的联系　·使用Delphi轻松控制IE窗口

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

　　在可视化开发的时代，窗体是绝大部分应用程序的核心，但是开发者也许已对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中测试通过。　[1]

--->GreenBrowser V4.5.0423 简体中文版┊多窗口多特性的浏览器
--->Gosurf Browser 2.76.704.8178┊最IN多页面多窗口浏览器┊多国语言绿色免费版
--->Avant Browser V11.5 Build 8┊基于IE 内核多窗口浏览器┊多国语言官方便携版
--->AcooBrowser （阿库浏览器） V1.58 build 770┊强大的多窗口多功能浏览器┊多国语言绿色特别版
--->新华拼音输入法 V5.0[1126]┊拼音文字化的汉字词语输入法┊简体中文特别版
Tags:　实现漂亮汉字窗口

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

用Delphi实现24位真彩色图标(2)

巧用Photoshop蒙版和滤镜做漂亮撕边效果

在VFP中编程自动产生所输入汉字的拼音

Delphi无标题窗口的移动

◎→	本类最新
DELPHI动态生成控件 Delphi编程中创建一个启动闪现窗在win95,win98下实现半透明的窗口拖动无标题栏窗体的方法用Delphi 控制窗体的大小使MDI窗口有一个背景图象或使它平软件启动画面中启动状态的显示

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
图解Delphi 8 Eco 开发实战用Delphi编写后台监控软件用Delphi获取Windows及系统路径用Delphi实现24位真彩色图标用Delphi实现24位真彩色图标(2) 用Delphi实现24位真彩色图标(1) 使用Delphi轻松控制IE窗口