说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Delphi3.0中复活节彩蛋及实现

HTML文档下载 WORD文档下载 PDF文档下载
Delphi3.0中复活节彩蛋及实现

启动Delphi 3.0,打开Help菜单,单击“About”,在对话框中按住ALT键不放,输入TEAM,就可以看到测试人员名单;按住ALT键不放,输入DEVELOPERS,就可以看到开发人员名单;按住ALT键不放,输入QUALITY,就可以看到QUALITY人员名单。

复活节彩蛋是目前许多软件都具有的,你也可以在自己开发的软件中加入它。本文给出一个例子供参考,本文设计的复活节彩蛋是在“关于”对话框中按住ALT键,输入“EGGOUT”,将显示“你现在看到的是复活节彩蛋!OK!”信息,两秒种后自动消失,下面是实现的具体方法。

1. 根据惯例,复活节彩蛋一般都放在软件的“关于”(About)对话框中,为简化程序,在这里只使用一个“ABOUT”对话框。启动Delphi3后,关闭当前的空白窗体,在“FILE”菜单中选择“NEW...”,在“NEW ITEM”对话框中单击“FORM”卡,从中选择“ABOUT BOX”,在这个窗体的基础上你可以加入版本、版权等有关信息。

2. 在ABOUT BOX窗体的Panel1组件的空白处添加一个标签LABEL1,标题为“你现在看到的是复活节彩蛋!OK!”,设定合适的字体颜色和大小,将其Visible属性设置为FALSE。

3. 在"Object Inspector"中对ABOUT BOX窗体的KeyPreview属性缺省值做修改,将其值由FALSE改为TRUE,注意这一点很重要,否则无法实现本文的功能。

4. 在窗体的FormKeyDown事件中处理用户输入的字符:首先判断用户是否按下了ALT键,接着循环接收用户按住ALT输入的字符并放在一个字符串中,如果字符串等于“EGGOUT”,则置标签的显示属性为TRUE,延迟两秒种后自动隐含标签。

5 .双击“OK”按钮,写代码“CLOSE;”,用户可按此按钮退出程序。

下面给出完整的程序代码:

unit Unit1;

interface

uses Windows

SysUtils

Classes

Graphics

Forms

Controls

StdCtrls

Buttons

ExtCtrls;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

Label1: TLabel;

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

//定义一个字符串用来接收用户的输入

s:string;

implementation

{$R *.DFM}

procedure TAboutBox.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var

delaytime:TDatetime;

begin

//如果按下ALT键、只接收字符

if (shift=[ssalt]) and (key>=$41) and (key<=$5a) then

begin

s:=s+chr(key);

if s=‘EGGOUT' then

begin

//显示彩蛋

label1.visible:=true;

//延迟代码

delaytime:=now+encodetime(0

0

2

0);

while now    Application.ProcessMessages;

label1.visible:=False;

end;

end;

end;

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

close;//程序结束

end;

end.

说明:彩蛋的表现形式可以是多种多样的,你可以显示动画文字、图片等。

此程序在Delphi 3.0 、中文WIN98 环境下调试通过。

VB制作一个有参数的执行文件(方法之简单难以想像) 资源档(.RES)的应用-VB资料 自定义Text的pop-up菜单-VB资料 自动出现动画、进度和确认的文件操作 -VB资料 自动选择 Text 的内容-VB资料 VB 调用 IMAGE 控件实现图像缩放的一种方法 VB5 实 现 窗 口 图 像 缩 放、 滚 动 技 巧 VB编程之提速攻略(一) VB开发通讯软件 VB实现图形动画的三种方法 VB随机图像的魅力 VB中不规则图形热点的实现 VB中任意旋转位图的实现 VB中实现图像特技 VB中随机图像的魅力 VB中位图旋转的实现 Visual Basic设计图形浏览器示例 捕捉屏幕图象 -VB资料 放置“透明”的图片-VB资料 分割图像的方法-VB资料 如何将整个画面暗下来,如同关机前一般-VB资料 VB获取桌面图象 简单介绍透明位图的实现方法 -VB资料 将图片「非重叠显示」填满整个表格视窗 -VB资料 将英文字母及阿拉伯数字旋转任意角度 -VB资料 将真彩色图像变为256色灰度(BIG5码):-VB资料 VB利用Image控件实现图形浏览程序 利用VB捕捉并保存屏幕图象 切割一个Container中的图片 -VB资料 VB如何改变桌面的图片? VB如何实现“百叶窗”的图形特效? 关于网上邻居不能显示的问题? 各位老大,不知道有没有方法把rose转化为visio??给个答复就给分!! 丈夫日记 (zt) 新手要去哪里看适合的c++源代码啊?自己编些什么程序来练习合适呢?(内空) 高手救人!!!!!!!!!! [求救醒目]如何改变file对象的格式?[求救醒目] 一个莫名奇妙的问题 关于自己以后发展方向的一个问提!!!(偏软还是硬) 对WinSock和TCP/IP协议共同工作的疑惑 请高手指点迷津 综合我的几个问题,请高手指点。 为什么我存储图象的时候小的bmp能存储大的却说invalid blob length 一个字符串的基础问题 求助,关于DropDownList控件的问题 请教一个简单的SQL语句的写法! 请问我把两路PCM的样值点相加除2得到混音信号,可是噪音很大,应该怎么消除呢(有代码) 大家快看电视新闻,中国一艘潜艇在海上出事了!紧急发布! 各位快请帮帮忙呀!Session问题!!! 如何在代码中添加新增lookup字段??? xp系统问题!高分等答案 pl/sql中函数与过程有什么区别 关于事务 LIB 在线等!!!!!!!! ADO+SQL Server 如何用VB编写发邮件的程序? 数据库搜索的一个怪问题 怎么得到从另一个页面传来的参数 Full Text: Bush Speech Aboard the USS Abraham Lincoln 请问 怎么实现变量互换阿 我是新手~~~ FAT错误,请问如何修复? flashget那个小方框怎么做? 谁有《UML与Rational Rose2002从入门到精通》书的选配光盘 急!!!随机函数 FAT错误,请高手帮忙修复。 内部消息(我对我说的负责) 不定时开放FTP服务器 急,求救!!! 一个很简单的问题. 为什么 “基本图象处理代码(1) ehom(原作)”对grayscale不对? linux下的oicq 有马? 帮帮我,好吗,感谢,非常 help,help,sql query question? 大家认为考研考进其他学校(且跨专业)的可能性有多大 显示图片 数据库搜索的一个怪问题 共享上网问题!急~!!!! 句柄和指针有什么区别吗? 大虾快进来,帮帮兄弟们!!!再现等待!高分!! 请问C++Builder的程序中能不能使用*.mdb类型的数据库? 帮帮忙!!个位大哥 请问用java编程能实现数据采集的程序并进行传输(即c/s模式)吗? 请问什么命令找开一个窗体的? 对对联:清风邀月赏花香 求一些能提高知识水平的书,最好是写政治,社会,哲学的~ 如果一个锐角是另一个锐角的2倍,那么,这两个锐角分别是多少度和多少度? 西瓜含有什么有害物质? 钢筋直螺纹接头 一级接头与二级接头有何区别? 在八点和九点之间什么时候指针夹角是60%度一共两个,要一个. 西瓜中有什么物质 超文本、超媒体、超级链接有何区别? 真空包装的食品打开几天后还能吃吗?前两天买了袋豆干,真空包装的,当天没吃完,过了两天才吃完,这样会不会对身体不好啊? 为什么生石灰与水反应放出的热量可以煮熟鸡蛋? 你喜欢哪个季节的太阳?为什么?这写话怎么写? 用所给词的适当形式填空 This book is the best-----------(sell). 五年级综合填空I am a Chinese g____ . 用几句话写写太阳的样子和颜色 顿号前后可以是俩字义近的词么? What do you like playing?回答 ABCDE心理情绪 英语根据所给词的正确形式填空:half of the books ——(sell) out so far 高中语文拼音问题“果实累累”和“硕果累累”两个中的累同为第三声,还是同为第二声,还是一个第二一个第三? 请为我一个确切的答案,感激不尽!早就料到了,个人有个人的说法.高中老师在 请联系自己的实际经历,谈谈如何用情绪的abcde理论调节自己的不良情绪本人急需一篇关于此问题的论文,一千字左右! Jack usually has a hamburger and a cup of milk for lunch.对a hamburger and a cup of milk提问 已知:如图,在平行四边形ABCD中,AB=2BC,E,F在直线BC上,且BE=BC=CF.求证:AF丄DE 800字作文《我是这样过春节》.只要你copy一下就好,然后改一下一些小细节. 400米跑道,每条跑道的周长,每条半径的长、直道得长和弯道的长 已知:如图,在平行四边形ABCD中,E、F是BC边上的两点,且BE=CF,AF=DE求证,(1)△ABF≌△DCE求证:四边形ABCD是矩形 怎么做辅助线可以使三角形内只有两对三角形相似 这是我今年给我算的东东,一九八九年   九月    廿五日    丑时食      印      日      才八字 己      甲      丁      辛    巳 【紧急】在平行四边形ABCD中,AB=2BC,E、F在直线BC上,且BE=BC=CF.求证:AF⊥DE. 求感恩800字作文 吨能组什么词语 各位师兄师姐,跪求高中语文各种词语的拼音和意思(越多越好) 能否分别过AD在这两个三角形中各作一条辅助线 1、______,the firemen could quench the fire.A try they would B as they tried C what they tried D try as they would.为什么不能选项B,2、The older the goose,______to pluck.A it is the harder B the harder C the hardest D it is hard这是什么 哪位大神帮我看看哪里出错了.#include#includevoid main(){char* s;scanf("%s",&s);char a[10];strcpy(a,s);if(strcmp(s,strrev(a)))printf("No\n");elseprintf("Yes\n");} P是三角形ABC的边AB上的一点,试过点P作适当的辅助线,证明三角形ABC的内角和是180度.点P在AB边 靠近A点的地方 请看物理题,请讲解详细思路!O(∩_∩)O谢谢!还有我搞不清楚平均速度是速度加起来平均么?某运动员在百米跑道上以8M/S的速度跑了80米,然后又以2M/S的速度走了20M,这个运动员通过这段路的平均 给一些高中语文要用的成语和词语.越多越好 小弟我有个问题搞不懂,求教.为什么公司和商人不怕己方合同万一因某些原因(水灾、火灾、搬家、路上不小心丢失等)遗失,无对证,然后对方更改添加合同项目?人不可能百分百不出错,要是 Excuse me.Do you have a table for two? Sorry,_____there aren't any seats now.Do you mind waitingfor a while?此处为什么用but而不用and,and和but的用法是什么? 能帮我看一下问题吗大神们(暴力会超时,别用指针什么的啦)Description设一个m位素数p由高到低每一位分别是a1,a2,...,am.定义一个素数是完全素数当且仅当对于任意k(1 英语翻译 pleasant词性上变成反义词如agree-disagree 这种污泥选用什么样的泵?1公司主要做污泥处置的,要输送含水率达50%的污泥,请问哪种泵比较合适?我公司要输送氯离子浓度达20000ppm的污水,或者称污泥(含水率98%左右),请问哪种类型的泵比 在 温暖的 开始 新生活 春天里 小青蛙 的 阳光下 造句 when ___ you have a contest? sorry i___know 1.are.don`t 2.do aren`t 3.are aren`t 4.do don`t This is all I have left of him这是老友记里的一句话,想知道这个leave 和of都是怎么用的?of是不是表示all这个词的所属类似的看过很多,我一个外国朋友就在ps里帮我写过一句话,a good foundation to build off 单杆螺杆泵输送污泥(含水率80%)时翻浆, 原创作文《他们》800字 凉风送爽,空气里飘来一阵真诱人的花香.(这个句子怎么缩写,希望越快越好.) 合理情绪疗法使用的技术包括 核舟记船头三人的神态渲染了雕刻者的什么心态 They ____________(have)the hamburger in the box this evening. 合理情绪疗法的过程和原理是什么? 何谓文明 题记:文明,不需要口若悬河的表达,不需要妙笔生花的描述.弯腰拣起脚下的一章纸就足以体现文明! I have to do this on my own Im sorry 什么是认知训练?请阐述合理情绪疗法的主要内容及其实施步骤. 核舟记雕刻家为什么要把苏东坡安置在船头?答完整有追分 一( )新闻 一( )清风 一( )花香 我13岁,快14了,推荐我几本好看的书.关于哲学,或知识,或当代文学等等.还有关于物理和化学的杂志.谢谢! 九点五十五分,分针和时针所夹的锐角是多少度?请说明理由! 社会学家:27.6%户籍城镇化率证明“海龟”与“土鳖”结合 浙江发展关键孙杨无证驾驶后续 奥运冠军孙杨昨走进世界俄罗斯人民大会授予普京捍卫大国地多次违纪违规 孙杨被停赛停训停商业活新疆记者拍到中国首张高清雪豹捕食照片台“检察总长”黄世铭:一审有罪或遭弹网爆苍南一运管副所长驾豪车伤人逃逸 两大美制军机入驻台湾 下一步军购欲争美国废纸富阳新生 厂房有火箭队主场那学生小区吸烟 居民叫苦不迭俄罗斯民族主义者大游行 呼吁排外和限因治理水环境不力 海宁两名村书记被免小布什裸体沐浴自画像曝光 欲画19国首审穆尔西,法庭内外都不太平为了德美关系,默克尔宁舍斯诺登穆尔西能否逃离“政局魔咒”国际航天合作不应排斥任何人美国白宫微博有“水军” 专为奥巴马“华盛顿声称绝不宽恕斯诺登国际新闻早报:北约秘书长称东欧军演不中国最大系列贩卖野生动物案一审宣判 浙江温州民房倒塌事故已救出15人 救哪款空气净化器更靠谱?重庆市消协发布轿车高速路上尾随运输车31公里 原因每日彩讯93岁抗战老兵 南京过重阳信息超市 挑你所需重点公交线路要配神秘“安全员”溧水正在高标准打造南京新副城世预赛欧洲区 拜仁锋将大显身手休市9天后市场风向已变 大盘实现“开官方再发文:南京买房5种情况无需购房世预赛欧洲区 拜仁锋将大显身手所有政府还贷收费站 月票将不停车收费竞彩受注赛事一览建信“五虎将”近一年回报超30%专家推荐小伙骑平衡车撞倒大爷还不认错 警察来金陵石化爆燃3大焦点有回应富国联手阿里推医药指数增强基金专家推荐
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘