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.
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
