用Delphi制作“复活节彩蛋”

张文治 
2001年 38期

　　复活节彩蛋是目前软件中常用的一个小花招，一般是当用户按住某个功能键再输入几个字母就可激活开发者名单、测试名单、致谢等有关信息，而且复活节彩蛋一般都隐藏在“关于”对话框中。比如在Delphi 4．0中，打开Help选单，单击“About”，在对话框中，按住Alt键不放，输入TEAM、DEVELOPERS或QUALITY，都可以看到有关人员名单。在其他的一些软件中也有这些类似的例子，如VB、Word等。
　　　　这个东东看似“神秘”，其实实现起来并不复杂。本文给出一个用Delphi实现的例子，并说明实现复活节彩蛋的关键技巧。
　　　　虽然复活节彩蛋一般在“About”窗体中，但它是可以在任何窗体上实现的。在这里首先要解决的第一个问题就是如何让窗体接收用户的键盘输入，且不会激活窗体中的其他组件。我们知道，在窗体的属性中有一个KeyPreview，其缺省值为False，我们现在将其值改为True。为什么要这么做呢？因为这样可以使窗体在组件之前接收键盘输入，否则键盘输入被组件接收，就无法实现复活节彩蛋。其次，为了防止用户无意中在键盘输入时激活彩蛋，一般使用Alt、Shift或Ctrl控制键和其它几个字母的组合作为激活条件，这样一般和用户的键盘输入不会相同。接下来就是接收用户的输入了，将用户每次输入的字符保存，如果和事先定义的字符串相同则激活复活节彩蛋。下面是一个实例：
　　　　用户在窗体上按住Alt键不放，输入“HELLO”，则会出现一个消息框，提示你激活了复活节彩蛋，具体的彩蛋随便你设计了。下面是程序代码：
　　　　unit Unit1
　　　　interface
　　　　uses
　　　　Windows， Messages， SysUtils， ClassesGraphics， controls， Forms， Dialogs;
　　　　type
　　　　TForm1 = class（TForm）
　　　　procedure FormKeyDown
　　　　（Sender:TObject; var Key: Word;
　　　　Shift: TShiftState）;
　　　　private
　　　　{ Private declarations }
　　　　public
　　　　{ Public declarations }
　　　　end;
　　　　var
　　　　Form1: TForm1;
　　　　keytp :string;
　　　　implementation
　　　　{$R *．DFM}
　　　　procedure TForm1．FormKeyDown
　　　　（Sender: TObject; var Key; Word;
　　　　Shift: TShiftState）;
　　　　begin
　　　　//是否按下ALT键，只接收字符
　　　　if （shift=[ssALT]） and （key ＞=$41）
　　　　and （key< =$5A） then
　　　　begin
　　　　keytp:=keytp+chr（key）
　　　　if keytp=＇HELLO＇ then
　　　　begin
　　　　showmessage（＇你激活了复活节彩蛋＇）
　　　　end;
　　　　end;
　　　　end;
　　　　end．
　　
　　 
 