下载本文示例代码
font color="#ffffff">---- 复活节彩蛋是目前软件中常有的一个小花招，一般是当用户按住某个功能键再输入几个字母就可激活开发者名单、测试名单、致谢等有关信息，而且复活节彩蛋一般隐藏在“关于”对话框中。比如在DELPHI
4.0中，打开Help菜单，单击“About”，在对话框中，按住ALT键不放，输入TEAM、DEVELOPERS或QUALITY，都可以看到有关人员名单。
---- 复活节彩蛋的实现并不复杂，本文给出一个用DELPHI 4.0实现的例子，并说明实现复活节彩蛋的关键技巧。虽然复活节彩蛋一般在“About”窗体中，但它是可以在任何窗体上实现的。在这里首先碰到的第一个问题就是如何让窗体接收用户的键盘输入且不会激活窗体中的其他组件。在窗体的属性中有一个KeyPreview，其缺省值为False，将其值改为TRUE，为什么要这么做呢？因为这样可以使窗体在组件之前接收键盘输入，否则键盘输入被组件接收，就无法实现复活节彩蛋。其次，为了防止用户无意中在键盘输入时激活彩蛋，一般使用ALT、SHIFT或CTRL控制键和其它几个字母的组合作为激活条件，这样一般和用户的键盘输入不会相同。接下来就是接收用户的输入了，将用户每次输入的字符保存，如果和事先定义的字符串相同则激活复活节彩蛋。下面是一个实例。
---- 用户在窗体上按住ALT键不放，输入“HELLO”，则会出现一个消息框，提示你激活了复活节彩蛋，具体的彩蛋随便你设计了。下面是程序代码：注意别忘记将窗体FORM1的KeyPreview属性设定为True。
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
---- 此程序在Delphi 4.0 、中文WIN98 环境下调试? 。
font color="#ffffff">---- 复活节彩蛋是目前软件中常有的一个小花招，一般是当用户按住某个功能键再输入几个字母就可激活开发者名单、测试名单、致谢等有关信息，而且复活节彩蛋一般隐藏在“关于”对话框中。比如在DELPHI
4.0中，打开Help菜单，单击“About”，在对话框中，按住ALT键不放，输入TEAM、DEVELOPERS或QUALITY，都可以看到有关人员名单。
---- 复活节彩蛋的实现并不复杂，本文给出一个用DELPHI 4.0实现的例子，并说明实现复活节彩蛋的关键技巧。虽然复活节彩蛋一般在“About”窗体中，但它是可以在任何窗体上实现的。在这里首先碰到的第一个问题就是如何让窗体接收用户的键盘输入且不会激活窗体中的其他组件。在窗体的属性中有一个KeyPreview，其缺省值为False，将其值改为TRUE，为什么要这么做呢？因为这样可以使窗体在组件之前接收键盘输入，否则键盘输入被组件接收，就无法实现复活节彩蛋。其次，为了防止用户无意中在键盘输入时激活彩蛋，一般使用ALT、SHIFT或CTRL控制键和其它几个字母的组合作为激活条件，这样一般和用户的键盘输入不会相同。接下来就是接收用户的输入了，将用户每次输入的字符保存，如果和事先定义的字符串相同则激活复活节彩蛋。下面是一个实例。
---- 用户在窗体上按住ALT键不放，输入“HELLO”，则会出现一个消息框，提示你激活了复活节彩蛋，具体的彩蛋随便你设计了。下面是程序代码：注意别忘记将窗体FORM1的KeyPreview属性设定为True。
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
---- 此程序在Delphi 4.0 、中文WIN98 环境下调试? 。
下载本文示例代码
软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现软件中复活节彩蛋的实现
阅读(107) | 评论(0) | 转发(0) |
