编写彩蛋效果程序
本帖最后由 冥界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+单击就会触发 弹框事件! 你这是什么语言写的?PHP? 对于一窍不通的我,默默支持一波就够了~ 巨无霸 发表于 2017-9-10 09:31
你这是什么语言写的?PHP?
吼吼吼吼,不好意思,看是看到了,但对这个语言不熟! 不错不错,喜欢 php还是html啊? 这些家伙们,明明是在Delphi组里么,是喊叫PHP ,Delphi就这么不堪?
页:
[1]