用Delphi制作“复活节彩蛋”

Author: 张文治 Date: 2001年 38期

?牐牳椿罱诓实笆悄壳叭砑谐Ｓ玫囊桓鲂』ㄕ校话闶堑庇没О醋∧掣龉δ芗偈淙爰父鲎帜妇涂杉せ羁⒄呙ァ⒉馐悦ァ⒅滦坏扔泄匦畔ⅲ腋椿罱诓实耙话愣家卦凇肮赜凇倍曰翱蛑小１热缭贒elphi 4．0中，打开Help选单，单击“About”，在对话框中，按住Alt键不放，输入TEAM、DEVELOPERS或QUALITY，都可以看到有关人员名单。在其他的一些软件中也有这些类似的例子，如VB、Word等。
　　?牐犝飧龆此啤吧衩亍保涫凳迪制鹄床⒉桓丛印１疚母鲆桓鲇肈elphi实现的例子，并说明实现复活节彩蛋的关键技巧。
　　?牐犓淙桓椿罱诓实耙话阍凇癆bout”窗体中，但它是可以在任何窗体上实现的。在这里首先要解决的第一个问题就是如何让窗体接收用户的键盘输入，且不会激活窗体中的其他组件。我们知道，在窗体的属性中有一个KeyPreview，其缺省值为False，我们现在将其值改为True。为什么要这么做呢？因为这样可以使窗体在组件之前接收键盘输入，否则键盘输入被组件接收，就无法实现复活节彩蛋。其次，为了防止用户无意中在键盘输入时激活彩蛋，一般使用Alt、Shift或Ctrl控制键和其它几个字母的组合作为激活条件，这样一般和用户的键盘输入不会相同。接下来就是接收用户的输入了，将用户每次输入的字符保存，如果和事先定义的字符串相同则激活复活节彩蛋。下面是一个实例：
　　?牐犛没г诖疤迳习醋lt键不放，输入“HELLO”，则会出现一个消息框，提示你激活了复活节彩蛋，具体的彩蛋随便你设计了。下面是程序代码：
　　?牐爑nit Unit1??
　　?牐爄nterface
　　?牐爑ses
　　?牐燱indows， Messages， SysUtils， ClassesGraphics， controls， Forms， Dialogs;
　　?牐爐ype
　　?牐燭Form1 = class（TForm）
　　?牐爌rocedure FormKeyDown
　　?牐牐⊿ender:TObject; var Key: Word;
　　?牐燬hift: TShiftState）;??
　　?牐爌rivate
　　?牐爗 Private declarations }
　　?牐爌ublic
　　?牐爗 Public declarations }
　　?牐爀nd;
　　?牐爒ar
　　?牐燜orm1: TForm1;
　　?牐爇eytp :string;
　　?牐爄mplementation
　　?牐爗$R *．DFM}
　　?牐爌rocedure TForm1．FormKeyDown
　　?牐牐⊿ender: TObject; var Key; Word;
　　?牐燬hift: TShiftState）;
　　?牐燽egin
　　?牐?//是否按下ALT键，只接收字符
　　?牐爄f （shift=[ssALT]） and （key ＞=$41）
　　?牐燼nd （key< =$5A） then
　　?牐燽egin
　　?牐爇eytp:=keytp+chr（key）??
　　?牐爄f keytp=＇HELLO＇ then
　　?牐燽egin
　　?牐爏howmessage（＇你激活了复活节彩蛋＇）??
　　?牐爀nd;
　　?牐爀nd;
　　?牐爀nd;
　　?牐爀nd．
　　
　　