用Delphi7.0实现漂亮的汉字窗口
来源:互联网 发布:js 选中清除input标签 编辑:程序博客网 时间:2024/06/02 20:28
在可视化开发的时代,窗体是绝大部分应用程序的核心,但是开发者也许已对Windows一成不变的方形窗体感到厌烦。其实巧妙地使用API函数即可实现汉字形状的窗体。 本文的实例运行后将显示一个由“电脑报”三个汉字作为外形的窗体。当然你还可以利用本期讲的方法实现更有个性的汉字窗口。
设计思路
1使用BeginPath和EndPath函数为窗体定义路径。
2用PathToRegion将路径转换为Region数据。
3调用SetWindowRgn按路径绘制窗体。
4由于不规则窗体无系统菜单,因此程序中必须有关闭窗体的代码。
实现步骤
启动Delphi7,新建项目。前述的API函数在Delphi中均可直接调用,因此用户不需要声明,可直接输入下面的控件事件代码。
//窗体创建事件
procedure TForm1.FormCreateSender TObject
var
rgnHRGN
begin
//设置文字颜色为红色
form1.Color=clred
//开始设置路径,参考API函数声明①
beginpathcanvas.Handle
//设置背景为透明,参考API函数声明②
setbkmodecanvas.HandleTRANSPA
RENT
//设置字体
canvas.Font.Name ='宋体'
//设置字号
canvas.Font.Size=100
//将汉字“电脑报”设置为窗体形状路径
canvas.Textout1515'电脑报'
//结束设置路径,参考API函数声明③,完成设计思路(1)
endpathcanvas.handle
//将路径转换至区域,参考API函数声明④,完成设计思路(2)
rgn=pathtoregioncanvas.handle
//改变窗体形状,参考API函数声明⑤,完成设计思路(3)
setwindowrgnhandlergntrue
end
//鼠标按下的事件完成,进行设计思路(4)
procedure TForm1.FormMouseDownSender TObject Button TMouseButton Shift TShiftState X Y Integer
begin
//如用户单击右键,则结束程序运行
if button=mbright then
close
end
- 用Delphi7.0实现漂亮的汉字窗口
- 一个漂亮的ExtJs登录窗口(实现登录跳转)
- 一个漂亮的ExtJs登录窗口(实现登录跳转)
- 用Delphi7实现Web Service
- Delphi7 窗口停靠效果
- Delphi7实现B/S应用的注意事项
- Delphi7中群发电子邮件的实现
- Delphi7 & SqlServer实现数据的CRUD(一)
- delphi7用speech sdk5.1实现tts
- JS弹出窗口 漂亮的JS弹出 提示窗口
- 漂亮css3实现的loading
- 用CSS实现的几个非常漂亮的按钮
- 用jquery插件实现漂亮的日历效果
- 用thead、tbody、tfoot实现漂亮的table布局
- 用java实现汉字的笔画数
- 用Delphi7访问.NET 2.0的WebService
- Delphi7程序中上下文关联chm帮助的实现
- 在delphi7要实现XP效果的方式
- "Hello world" ,frist program
- 一步步学BIOS设置【视频版】
- 提供的刷新BIOS教程
- Base64加密
- 可怜的日本政府
- 用Delphi7.0实现漂亮的汉字窗口
- 小型软件公司如何做大[转贴]
- 电信网管中的Java客户端(三)
- [转贴]一对同居男女在同一天的日记
- 芯片维修技术资料下载!
- 人民网——什么是ERP?
- Java中XML的DOM操作
- 李开复给中国学生的一封信:从诚信谈起
- Ebay模式与虚拟物品平台经营