编写彩蛋效果程序

冥界3大法王

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

[Delphi] 纯文本查看 复制代码

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 = [ssALT]) then
    showmessage('你激活了复活节彩蛋！');
end;

end.

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

巨无霸

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

Horrendous

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

巨无霸

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

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

我是本饭

不错不错，喜欢

pengge123

php还是html啊？

sxtylhg

这些家伙们，明明是在Delphi组里么，是喊叫PHP ，Delphi就这么不堪？