📄 060201_05.htm
字号:
<html>
<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>计算机世界日报:
软件中复活节彩蛋的实现
</title>
<!--***********-->
</head>
<body bgcolor="#FFFFFF" >
<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
软件中复活节彩蛋的实现
</h2></font>
<h3>
济宁食品进出口公司
<br>唐成斌
</h3>
</center>
<font color="#ffffff">----</font>
复活节彩蛋是目前软件中常有的一个小花招，一般是当用户按住某个功能键再输入几个字母就可激活开发者名单、测试名单、致谢等有关信息，而且复活节彩蛋一般隐藏在“关于”对话框中。比如在DELPHI 4.0中，打开Help菜单，单击“About”，在对话框中，按住ALT键不放，输入TEAM、DEVELOPERS或QUALITY，都可以看到有关人员名单。
<p><font color="#ffffff">----</font>
复活节彩蛋的实现并不复杂，本文给出一个用DELPHI 4.0实现的例子，并说明实现复活节彩蛋的关键技巧。虽然复活节彩蛋一般在“About”窗体中，但它是可以在任何窗体上实现的。在这里首先碰到的第一个问题就是如何让窗体接收用户的键盘输入且不会激活窗体中的其他组件。在窗体的属性中有一个KeyPreview，其缺省值为False，将其值改为TRUE，为什么要这么做呢？因为这样可以使窗体在组件之前接收键盘输入，否则键盘输入被组件接收，就无法实现复活节彩蛋。其次，为了防止用户无意中在键盘输入时激活彩蛋，一般使用ALT、SHIFT或CTRL控制键和其它几个字母的组合作为激活条件，这样一般和用户的键盘输入不会相同。接下来就是接收用户的输入了，将用户每次输入的字符保存，如果和事先定义的字符串相同则激活复活节彩蛋。下面是一个实例。
<p><font color="#ffffff">----</font>
用户在窗体上按住ALT键不放，输入“HELLO”，则会出现一个消息框，提示你激活了复活节彩蛋，具体的彩蛋随便你设计了。下面是程序代码：注意别忘记将窗体FORM1的KeyPreview属性设定为True。
<pre>
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.
</pre>
<p><font color="#ffffff">----</font>
此程序在Delphi 4.0 、中文WIN98 环境下调试通过。
<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small>
<br>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -