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

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 环境下调试通过。

谷歌发布Web延迟基准测试工具 专访JS-Git创始人Tim Caswell:让Git运行于任一平台 一段代码引发的思考 2013年美国开发者薪资调查报告 MDCC之移动娱乐游戏峰会:金玩奖揭晓最火游戏 算法为王:且看Mac Mini如何超越1636节点的Hadoop 鲍尔默成大善人?微软正式废除员工排名评审制度 工信部软件司副司长陈英为MDCC 2013大会致开场辞 全民移动•重塑世界 2013移动开发者大会盛大开幕 泯灭Web App可用性的七个开发错误 保益互动创始人曹军:听到的世界更精彩,盲人应用背后的故事 Gumi公司CEO国光宏尚: 大公开!日本手游市场攻克方法! Great Hill Partners高管Chuck Goldman &amp; 南京创毅CEO William Wei:超越黑莓——下一代企业移动 高通业务拓展副总裁沈劲:智能手机2.0——以体验为中心 百度副总裁李明远:百度轻应用——长尾APP的最佳选择 中国工程院院士李德毅:大数据时代的认知计算 创新工场联合创始人汪华:2013年中国移动互联网进入深入区 百度副总裁李明远:解答关于百度轻应用的八大疑问 谷歌推出PNaCl,帮助开发者在任何硬件和网站上运行代码 阿里云:双十一350亿交易额的幕后英雄 索尼移动智能设备全球技术总监Goran Andersson:索尼移动可穿戴设备解决方案 腾讯社交网络事业部副总裁陈磊:腾讯移动开发者服务体系 基调网络副总裁陈靖华:全面掌握移动应用性能 蓝港在线创始人王峰:手游新时代下的机会与挑战! Couchbase CEO Bob Wiederhold:数据库云端同步,移动应用开发的未来 三星电子大中华区副总裁黄伽卫:构建移动互联生态,解读内容服务新方向 MDCC 2013移动开发者大会:新浪潮,新硬件! 网站建设,如何平衡产品特性和利益需求? 开发者是如何提升技能水平的 Databricks核心成员专访:大数据时代“智能手机”Spark 数据密集、快速启动、核心应用,IBM存储重兵布阵 我也调查行不行?———你用什么激励自己------- 哥几个乐乐呵呵! 同志们,请教对于文件的操作 !!! 高手思考:C++ Builder 5 动态生成控件,并可以拖动改变其大小,位置 Kylix的so难题?Kylix高手请进!!! InsideCOM中第十章里Util.cpp的报错,请前辈指点。 关于在ATL中使用 ::LoadLibrary("FirmClient.dll")一说 大虾们 过来看看吧 {icongrid 1..192}是什么意思?请教。。。 吴文智,交个朋友,好吗 请问我INSTALL第三方控件怎么老是提示说*.DCU文件not found啊,我用的是D6,应怎么解决? To: foolishtiger(吴文智) ,请教你一个问题!!! 一个关于EJB的问题,急!急啊 请教DBGrid问题如下: tomcat连接数据库oracle?用javabean? 请教:ORACLE ENTERPRISE MANAGER怎么连接 怎样做半透明窗口? 怎样用程序安装输入法? InsideCOM中第十章里Util.cpp的报错,请前辈指点阿。 dephi中有没有显示流程图的控件? 数据库有自动加锁的功能。那我是否可以在一个过程中,靠代码去主动给一个表,多个表加锁,解锁呢?? 一道scjp考题,问题答案都有,谁看明白了给俺解释一下,会送分的 急急急,40分想送!!!!! b/s结构下的新邮件提示问题(重赏!!!) 哪里可下载WINXP DDK和SDK 别忘了向我祝贺啊,今天也是我的生日!! 如何让光标不离开DBGrid的当前行,就将当前记录的修改提交数据库 好心的大虾们,帮帮我!有关gis的 ORACLE的触发器怎么弄 用C++怎样统计文本文件中的字符个数,请给源代码 讨论:不经人大批准给公务员加薪是腐败行为? http://www.csdn.net/expert/topic/389/389043.shtm 怎么样才能将*.pdf文件转成*.doc 急急急急……快帮忙,icevi,弱水快帮忙。 JAVASCRIPT 中怎么样用VBA的函数? 用VB怎样遍一个程序用列表的形势,找到并显示局域网中所有已经打开的SQL服务器名? C++标准类库中有没有类提供<<操作符输出调试信息? JAVASCRIPT 中怎么样用VBA的函数?我急呀~ ~~~~~~好心的大虾们,帮帮我,关于gis~~~~~~~~~~~~ 关于在mfc中使用stl中的警告问题? 关于视频播放控件的开发 在单位上了网通,我们通过局域网上internet,可是服务器装了wingate…… 怎样在程序里实现window下“打开方式”对话框,具体用什么类? 我下载了好多经典书籍(十几本),都不知道该从哪儿看起? 怎么处理没有用的连接文件? 问个菜问题 热烈庆祝灰毛兔参与分超过30000分~~~热情大送分~~!! (灰毛兔) 请教如何打包crystal report 7.0驱动引擎到我的安装程序中? 用open打开的页面如何RELOAD打开他的那个父页面? 谁有jet请发给我!谢谢!! 如何开发排序(用C或C++) 新手求教:请问怎么可以把含逗号(如:sa,ffd,sdf)的字符串从逗号处分开,变成独立的几个字串sa ffd sdf? 这道双曲线数学题怎么做?设P点在以F1、F2为左右焦点的双曲线C:(x^2/a^2)-(y^2/b^2)=1(a>0,b>0)上,PF2⊥x轴,PF2=3,点D为其右顶点,且F1D=3DF2. ⑴求双曲线C的方程 ⑵设过点M(2,0)的直线l与双曲线C交于不同 小芳家离学校1km,她步行上学需要15min,求小芳步行的速度多大 手工制作课上,六(二)班制作红花30朵,黄花24朵.黄花比红花少百分之几 阿姨把一批饼干分给小朋友,若每人6块,则少了17块;若每人9块,则少了25块,有多少小朋友?多少饼干呢? 白雪公主的故事简介300字 因式分解x² 2xy-3y ² 3x y 2 因式分解:用十字相乘法计算 x²y²-5xy+6 白雪公主的作者 焦点在坐标轴上的双曲线,两条渐近线方程2x正负 y=0焦点到渐近线的距离为8求此双曲线 X+8=3x 怎么算? 用一句话概括白雪公主这篇童话故事的主要内容 除了瓢虫和蚜虫以外,还有那些害虫和益虫 一个小数保留两位小数,“四舍五入”后是13.40,这个数最大是多少? 童心撞地球我爱童话剧白雪公主 的白雪公主是谁演的 同学们为庆祝国庆节,准备了一些花装饰教室,黄花是红花的5分之2,紫花是红花的4分之3,已知黄花有24朵,紫花有多少朵?解方程,谢谢. 6x(x-2)-(x-2)(3x-1)=3x^2-8怎么计算 一直双曲线x^2/2-y^2/b^2=1(b>0)的左右焦点分别为F1,F2.其一条渐近线方程为y=x,点P(√3,y0)在该双曲线上,则向量PF1点乘向量PF2=? 123÷999=0.123123123.,商的小数部分的100位数字是(1),商的小数部分前100位数字之和是( 多少?)结果是 12301 , 一个苹果 放炮洞外格外冷静战士们在想什么?要有详有略是300字,每个人都写,一些写详一些写略 小数点位置的移动引起小数大小的变化 小数 A=0.123 456 789 101 112 4…,在小数后面第2010位上的数字是几? 放炮洞里的八个人一起来飞驰其苹果来.改为双重否定句八“放炮洞里的八个人一起粪池气瓶过来”改为双重否定句. 小数点位置移动引起小数大小变化的规则是什么快 X=1/9,Y=-3时,求代数式(x+2y^2)+(2x+1/1*2y^2)+(3x+1/2*3y^2X=1/9,Y=-3时,求代数式(x+2y^2)+(2x+1/1*2y^2)+(3x+1/2*3y^2)+……+(9x+1/8*9y^2)的值 小方看一本故事书,第一天看了这本书的三分之一多2页,第二天看了这本书的二分之一少1页,第三天看完剩下的10页,这本书一共有多少页?急要算式 设x的平方+y的平方+2=3,求-3x的平方-3y的平方的值 已知双曲线的中心在原点,焦点F1F2在坐标轴上,一条渐近线方程为y=x,且过点(4,-√10)求双曲线方程 快乐语文举办的第十三届海峡冰心杯征文比赛题目是什么 另一部队里关于一个苹果的故事 大体意思是一个连队在一个山区执行任务 树上掉下来一个苹果 一个战士捡起来吃了 被指导员指导了 教育了一通 并掏出钱栓在了树上 谁有这个的原版 同学们做了36朵红花和30朵黄花,做的红花朵数比黄花朵百分之几? 快乐语文第十四届冰心杯征文题目是什么?老师让我们全班都去写冰心杯,我是第一次,最好告诉我文章是用编的,还是真实的. 请你编一个苹果的故事450字 作文 作文 小数点移动位置,小数大小会有什么变化? 快乐语文第十五届征文主题是什么? 一个苹果的的故事想象作文 已知双曲线经过点(4,-√3),且焦点在x轴上,渐近线方程是y=±1/2想,则双曲线方程为? 小数的含义 双曲线C的中心在原点上,右焦点为F=2√3/2,渐近线方程为y==±√3x,(1)求双曲线C的方程(2)设直线L:y=kx+1与双曲线C交于A、B两点,问:K为何值时,以AB为直径的圆过原点焦点是2√3除以2 庆祝元旦 同学们做了一些红花和黄花 红花的朵数是黄花的四分之三,如果从黄花中拿出9朵放到红花中,那么黄花红花的朵数相等,原来有红花几朵. 小朋友分饼干,若每人分4块,则多9块;若每人分5块,则少6块,问有多少个小朋友?有多少块饼干?我不会用方程. -4(y-x)-3x+3y+5,其中x-y=3 庆祝元旦,同学做了一些红花和黄花.红花的朵数是黄花的四分之三,如果从黄花中拿出拿出9朵放到红花中,那么 谁能帮我选选《快乐语文》第十三届热爱生命的题目 当x=3,y=2.5时,3x+4y=(),6x—3y=(). 课后第五题 小数的定义是什么 0.0是小数吗? 若3x=4y,5分之3y=3分之1z,求x:y:z 如何评小学三年级语文课 小数是怎样定义的? 如果x+y=5,x-y=3,则3x的平方减去3y的平方的值 书店里说这个是免费教材,没有卖的。 防炮洞里格外沉静,战士们心里在想些什么?至少五句 小芳每天步行上学,如果每分钟走60米,迟到5分钟;如果每分钟走75米,提早2分钟到学校.小芳家到学校多少米 急 焦点在y轴上,一条渐近线为y=3/4x,实轴长为12,求双曲线标准方程 防炮洞里格外沉静,战士们心里在想些什么 小芳从家步行去学校,现在离上课时间还有若干分钟,如果每分钟走80米,结果提前6分钟到校,如果每分钟走50米则要迟到3分钟,那么小芳家到学校的路程是多少米?(用方程解. 求:渐近线方程y=±3/4x,焦点在x轴上,c=5的双曲线的标准方程 主要内容讲了:在抗美援朝时.战争基地的一个防炮洞里来了一个运输员.他给连长一个苹果.但是防炮洞里的战士们都舍己为人.最后大家一起吃.但是吃了一圈.还剩下一大半.战士们都被此感动 小芳从家到学校要走16分钟.小芳家到学校要走960米,平均每分钟走多少米?小芳家到少年宫是630米,现在是下午2时20分,照平常到校的速度,下午2时20分前,小芳能从家赶到少年宫吗? 已知焦点在x轴上的双曲线的渐近线方程式y=加减4x,则该双曲线的离心率是?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn