如何实现delphi的彩蛋功能!给代码马上给分,决不食言!

Question

响应键盘的问题,不难的,希望有代码的贴一下,thx!thx!

Answer 1

About -> atl + team

Answer 2

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  showmessage(inttostr(key));
end;

Answer 3

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key= then
end;你把鼠标移到key哪里,按住ctrl键,将出现下划线,然后点key，将打开一个单元，你查看哪个单元，将看到所有键

Answer 4

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  showmessage(inttostr(key));
end;
出现一下错误:
There is no overloaded version of 'IntToStr' that can be called with these arguments

Answer 5

[Alt] + D E V E L O P E R S 
[Alt] + Q U A L I T Y

Answer 6

： tazhch(鸭) 
好像key不会生成另一单元,其他单词就可以,
而我是想要ascii码,数字那种,
'vk_return'这种可以在帮助里找到.

Answer 7

注: from.keypreview=true; uses StrUtils;
.
.  public
    { Public declarations }
    mInputStr: string;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssAlt in shift then
  begin
    mInputStr:=mInputStr + char(Key);
    if RightStr(uppercase(mInputStr),4)='TEAM' then
      showmessage('彩蛋出現 !');
  end;
end;//調試通過
//---------------------------
->procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
->  Shift: TShiftState);
->begin
->  showmessage(inttostr(key));
->end;
->出现一下错误:
->There is no overloaded version of 'IntToStr' that can be called ->with these arguments
//---------------------------
//我的沒問題 !!

Answer 8

得了,thx,马上给分,希望大家以后给分都这么爽!
有很多贴还没结的.