冥界3大法王 发表于 2017-9-10 08:28

编写彩蛋效果程序

本帖最后由 冥界3大法王 于 2017-9-10 10:05 编辑

软件彩蛋?纳尼?What? 什么鬼?
其实就是程序员为了表达自身创意和心声的一种神奇小把戏。
类似于现实生活中的鸳鸯锁、子母锁、9把钥匙才能开启九转玲珑阵重书历史。
https://wenku.baidu.com/view/d63ae879fd0a79563d1e72be.html
好的,费话交待不少。那就从简单的开始第一个吧。

unit Unit1;
interface

uses
Windows, Messages, SysUtils, Variants, 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;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (shift = ) then
    showmessage('你激活了复活节彩蛋!');
end;

end.

代码,很简单,在Delphi生成的窗体中按下Alt+单击就会触发 弹框事件!

巨无霸 发表于 2017-9-10 09:31

你这是什么语言写的?PHP?

Horrendous 发表于 2017-9-10 08:59

对于一窍不通的我,默默支持一波就够了~

巨无霸 发表于 2017-9-10 10:49

巨无霸 发表于 2017-9-10 09:31
你这是什么语言写的?PHP?

吼吼吼吼,不好意思,看是看到了,但对这个语言不熟!

七彩棒棒堂 发表于 2017-9-10 11:11

我是本饭 发表于 2017-9-10 11:20

不错不错,喜欢

pengge123 发表于 2017-9-10 12:14

php还是html啊?

sxtylhg 发表于 2017-9-17 08:35

这些家伙们,明明是在Delphi组里么,是喊叫PHP ,Delphi就这么不堪?
页: [1]
查看完整版本: 编写彩蛋效果程序