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

2016-02-19 16:15 9 1 收藏

关注图老师设计创意栏目可以让大家能更好的了解电脑,知道有关于电脑的更多有趣教程,今天给大家分享用Delphi7.0实现漂亮的汉字窗口教程,希望对大家能有一点小小的帮助。

【 tulaoshi.com - 编程语言 】

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

  设计思路

  1犑褂肂eginPath和EndPath函数为窗体定义路径。

  2犛肞athToRegion将路径转换为Region数据。

  3牭饔肧etWindowRgn按路径绘制窗体。

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  4犛捎诓还嬖虼疤逦尴低巢说ィ因此程序中必须有关闭窗体的代码。

  实现步骤

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

  

//窗体创建事件procedure TForm1.FormCreate烻ender TObject牔var rgn烪RGNbegin //设置文字颜色为红色 form1.Color=clred //开始设置路径,参考API函数声明① beginpath焎anvas.Handle牔 //设置背景为透明,参考API函数声明② setbkmode焎anvas.Handle烼RANSPA RENT牔 //设置字体 canvas.Font.Name ='宋体' //设置字号 canvas.Font.Size=100 //将汉字电脑报设置为窗体形状路径 canvas.Textout1515'电脑报'牔 //结束设置路径,参考API函数声明③,完成设计思路(1) endpath焎anvas.handle牔 //将路径转换至区域,参考API函数声明④,完成设计思路(2) rgn=pathtoregion焎anvas.handle牔 //改变窗体形状,参考API函数声明⑤,完成设计思路(3) setwindowrgn焗andle焤gn焧rue牔end //鼠标按下的事件完成,进行设计思路(4)procedure TForm1.FormMouseDown烻ender TObject Button TMouseButton Shift   TShiftState X Y Integer牔 begin  //如用户单击右键,则结束程序运行  if button=mbright then   closeend

  注:本文例子在Windows2000和Delphi7中测试通过。

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

来源:http://www.tulaoshi.com/n/20160219/1611443.html

延伸阅读
标签: ASP
  <% Set d = CreateObject("Scripting.Dictionary") d.add "a",-20319 d.add "ai",-20317 d.add "an",-20304 d.add "ang",-20295 d.add "ao",-20292 d.add "ba",-20283 d.add "bai",-20265 d.add "ban",-20257 d.add "bang",-20242 d.add "bao",-20230 d.add "bei",-20051 d.add "ben",-20036 d.add "beng",-20032 d.add "bi",-20026...
标签: Delphi
用过一般的杀毒软件,都知道,启动程序时,常会问,网上已经有新版本的,是否升级之类的提示,现在越来越多的软件都支持在线升级,你是否也想实现这个功能?本文就如何实现在线升级,讲述一下如何通过HTTP检测是否需要下载升级版本,下载并升级。 实现步骤: 1、网站提供升级信息。 2、使用HTTP从网站下载升级信息。 ...
标签: Delphi
二、IP头结构 我们知道,TCP/IP网络数据全部是通过封装在IP数据包中在Internet网上传送的,也就是封装建立起一个包含IP头和数据的IP数据报。一般来说,网络软件总是以多个32位字产生IP头,即使必须用附加的0填充IP头。IP头包含了传输IP数据包中封装数据的所有必要信息。IP头的数据结构和描述如下: 成员长度(Bit)描述 Version4 ...
标签: Delphi
如果我们把Handle指向桌面,哪TMediaPlay将会在桌面播放。与TCanvas不同的是,TWinControl的Handle的属性是只读的,并且GetHandle方法是静态方法,这说明,我们要Handle指向桌面只有两种方法 修改TWinControl,让Handle可写。 建立TWinControl子类,并隐藏TWinControl.GetHandle方法,在新方法中返回桌面句柄。 其中第二...
用DELPHI实现文件加密压缩 作者: e梦缘 (wnhoo) Mail:wnhoo@163.com 风花雪月 e梦情缘 点击下载此详细说明文件 概述: 在这篇文件中,讲述对单个文件的数据加密、数据压缩、自解压的实现。同样,也可以实现对多个文件或文件夹的压缩,只要稍加修改便可实现。 关键...

经验教程

300

收藏

62
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部