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

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

2014智能硬件盘点第二弹!这次咱走暖心的 聚合数据资产,推动产业创新——2014中关村大数据日看大数据变现 拥抱开源:微软Windows 10宣布全面支持AllJoyn技术 改变App领域发展!友盟推“数据工场”战略,两款新品亮相 Cloudera正式登陆中国市场:与英特尔携手共助本土企业淘金大数据 Go 1.4正式发布 支持Android开发 【特别提醒】2014中国大数据技术大会门票全面告罄 不接受现场购票 累计4000万美元 Qualcomm在华投资5家公司 支持Android、WatchKit开发,全新RubyMotion 3面世! 快速开发移动医疗App!开源框架mHealhDroid 2014CVW﹒产业互联网大会解密未来20年 Nimble VR的收购与一封来自友商的感言 Google Earth API将在2015年12月彻底关闭 AR、美颜、机器人:计算机视觉库几乎无所不在 不激增,无爆收,年度最佳手游为80 Days带来了什么? 《近匠》机智云CEO黄灼:跨越智能硬件的“鸿沟” 智能手机≠智能家居!我们要的究竟是什么? 亚信大数据事业部总经理张灏:打通各行业数据壁垒 让大数据变现畅通无阻 Web App和Native App不是生死之争,而是可以和平共处! 微信之父张小龙说微信坚持“去中心化”,这样真的好吗? 亚信CFO武军谈进军海外市场成功经验 前瞻性思维是开路先峰 Swift,任重而道远! DevOps系统的变迁 玩转Docker镜像 “扫描建模”速建AR应用 Vuforia 4.0 SDK更新 硅谷里的外星人:纵观Reddit十年风雨路 不见不散 Cloud Foundry Meetup活动将首次走进杭州 独立开发者:新手做2D手游该用哪些工具? 求安全化危机!Uber研发生物识别技术、聘请前亚马逊运营 JavaScript社区开发者调查:服务端JS盛行 AngularJS使用者最多 去中心化、去中介化,微信商业化路径清晰了吗? 图形化界面问题!控件与窗体不重合! 书上的东西我看不董,是关于PB70与COM/MTS的,COM/MTS是什么,谁能告诉我? 怎么样能解决死机的问题? 跟帖比聊天有意思多了,哈哈 过去了,就不要再提 灌水乐园,我的MUD练功场 StringList 与 String的区别 为什么我的组合筐里只有最后的项,即"交叉线",没有其他的内容? 关于Tmemo 共享软件的开发经验 部件(Crystal Repot)引用错误(crystl32.ocx),请高手指点,,谢谢 无数个问题之123 steps你有oicq吗?壮丁!!!sos 怎样将数字字符转化为数字呀? WIN98下能读的光盘到了WIN2000/NT下居然读不出来! WIN98下能读的光盘到了WIN2000/NT下居然读不出来!(我的光盘是刻录的) 我不想要分(也许我只是个女生) 40分=一网址:那儿有Effective C++ 2e电子书? 如何在菜单中加入下拉框?像delphi的那样. 怎样用vb程序实现监控打印机打印输出情况 大家评出水园最有人气的mm,我给分啊,行动要快啊~~~~~~~~~~~~~~~~~~~~明天晚上7点结贴 编译servlet文件出错!急!!!! 寻觅朋友(用delphi优先) 我希望能认识安徽的程序员~~~~~~~~~~~~~~~联系:6011458(OICQ) 很长时间,我还是觉得这是一个事实! javascript中怎么进行数据类型间的转换? 关于非文档视图结构程序的菜单 寻delphi兼职程序员,要求比较懂数据库,多劳多得,不劳不得,报酬从几十元到几千元不等。 在程序中更改Filter to lastlove(☆)robin(★) 关于《深入浅出MFC》电子书 SOS:秦皇岛的小男孩胡颖1岁胡颖1岁8个月,得了白血病,希望大家帮助他,留住他的小生命 所有武大的GGDDJJMM进来报名 所有深圳的GGJJDDMM报道 请各位汇编高手看看这个程序,帮忙找一下错误。 无法安装REDHAT LINUX? inet控件怎样使用?请帮助 今天卖到一套D版VS7(6CD)不知道是真是假 如何读取注册表下某一键值? 一个语法错误,搞得我半天还没有弄出来!!!!!!!救命啊。 关于DCOM。 哈哈!我胡漢三又囬來了! 水园巨无聊,偶没时间的时候大家打的热闹,有时间的时候却又没人打,浪费偶这沙场骁将 如何判断Windows是否启动了“活动桌面“,并在程序里启动或关闭它??? 大家救命,关于COM+和EJB,大家快点帮忙,要不我就完蛋了,急死我了,救命阿。 OICQ上不去! mimi ? dynku ? do me a favor! 请赐教:tcp建立连接时三次握手的问题......... 如果没有指针,如何动态生成新的对象? 絕對難題!!!偶想得頭都大了。不是高手別進來,就算進來了你也答不出,信不信? 屏幕精灵终于被我升级完成。 找一些英语水平差不多的小故事,找了给100分!要6分钟左右,有情节性 求大学英语四级词汇 MP3 加文本 的, 最好有中文翻译~ 谢谢. 寻找英语四级写作高频高级词汇及短语 要在3分钟内,要简短,要好记.要有中文 求大学英语四级词汇听力mp3格式. 四级作文重点短语词组 有的尽管拿来 英语小故事五年级给5个英语小故事最好有点战争成分要中文 2014年大学英语四级词汇MP3文件,没事儿的时候可以放手机里听的,最好是有拼读的,读一遍,拼一遍,在说意思的那种. 英语四级重要短语我想问问谁有四级经常考的重要短语啊? 五年级英语小故事, 经常听MP3会不会对耳朵听力有影响呀?我是一个非常喜欢音乐的女孩子,平时最大的兴趣爱好就是静静的听着自己喜欢的音乐.所以从读书到现在都喜欢听MP3,但是听许多人说过,耳机听多了会对 有没有英语四级、六级及以上难度的只针对词组或短语的书?请说出具体的书名,这样便于购买,谢谢! carsickness这个词的音标 词性 意思分别是什么 常听MP3吃什么能保护耳朵和听力? 初中英语重要词组,短语remember是非常重要的 中考常考的 必须掌握的 切记 事成之后我加分 复制者. 大学英语四级词汇册买哪本好? 本人听力不太好,希望能够用英语磨耳朵,求新视野大学英语听力教程3的听力原文,最好是TXT的 英语重要词组和短语 大学英语四级词汇:首字母是D、E的单词,请附音标和解释 有谁用过星火大学英语四级词汇周计划的?大家是怎么用的,有用吗?一天要记80个单词,每个单词又有好几个意思,派生又有几个,还有词汇的用法,学用法又要看例句.周末还要复习,那就是400个词 我买了新东方四级特训这本书了……可是没有听力材料呀…… 大学英语四级词汇 有词汇 最好有音标最好是希望有经验者给点指导 谁有英语四级的词汇,要word文档的 求2006-2010年大学英语四级听力真题MP3?请发到我的邮箱gyqinglan@126.com!不胜感激! 求大学英语四级词汇(最好能有音标).请发我邮箱,谢谢. 邮箱:350468868@163.com 四级词汇表哪里有word的? 11年6月英语四级作文126分,请问换成百分制是多少分呢? 谁有大学英语四级单词表带音标的,下载地址也行.前提是手机能下载的 急求09英语四级高频词汇表(word)最好附例句的, 英语a.m p.m的词性 求2012年版Go for it七年级下册全部单词(要词性,音标,单词,中文)原封不动 求一份word版的四级单词很需要 英语表示词性的字母都是什么意思啊 很基础的像是n a v等的还有数词什么的 英语六级词汇涵盖四级吗 怎样将word文件发送到126,必须要注册126吗 十字锈这个词的英文翻译及其音标 能不能把星火大学英语四级词汇周计划 mp3下载也发给我啊,我买的书上没有光盘~ 您能给我一份2010新东方四级高频词汇 短语和作文么 英语翻译manufacture 求星火新要求大学英语四级词汇巧记速记精炼的 mp3 听力下载.( 精华本)是2009年7月第一版 .这本书后附有听力光碟,但是本人不会用. 麻烦谁能给我一份2010新东方四级高频词汇 短语和作文么? 英语翻译大家可以按照上面的图写下来拜托!我很需要呀..写一小点也是对我一个帮助呀!帮我写很多的,我给他50分好不好!555 奇思妙想记单词大学英语四级词汇哪有卖的 求 2010新东方四级高频词汇 短语和作文、请发邮箱:jiangxue919@163.com 帮忙翻译一些单词对应的英文词性lie的动名词,名词、sleep的过去式、nature的形容词、energy的形容词、travel的名词、discuss、snow的动名词、explore的名词、peace的形容词、high的名词、push的反义词 我是初中生成绩不错,想扩充英语词汇量,有什么好方法?(据说上海初中生背大学英语四级词汇,有用吗) 求2010最近新东方四级高频词汇 短语 作文 英语翻译快,短一点的英语故事,不是初一单词的要音标,要翻译! 大学英语四级词汇一题16.I certainly didn’t intend to _______ your plans.A.upset B.shake C.shave D.drag 英语四级词汇和重点短语有哪些 英文单词与音标 互译 在线等‍‍[fæt] = ‍[pændə]=‍[di:p]['sistə]‍['intrist]['sʌdnli]['æŋgri] teacherratbedfacerabittickettaxibeancapitalfact好的回答追加分 谁可以帮忙制作这首歌的lrc歌词?【此间年少】作曲/编曲:灰色作词:纱朵合唱:宝玉桑&小曲儿&纱朵&螭羽毛后期:奶妈月海报:茶壶LEN平纱落雁音乐团队出品宝玉:诗词背不齐 夫子发脾气 英语四级高频单词,短语 英语翻译要加上音标,不然我不知道怎么读. 谁有六人行跟MP3对应的lrc?不要word 和 txt的 四级必备单词和词组 英语小故事,要短一点,简单一点的. 谁有大学英语四级词汇MP3加文本解释的 如题 英语四级单词和短语的mp3,谁有?.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn