delphi小秘密：about窗口同时按alt+team，实现这个功能的代码

Question

实现 delphi小秘密：about窗口同时按alt+team显示开发人员名单，这个功能的代码以前有，现在找不到了。谁有望共享下。

Answer 1

处理About窗体的OnKeyDown事件即可实现。

Answer 2

注册系统热键，或者处理About窗体的OnKeyPress事件都可以实现
Sorry楼主，我想问下team键在键盘哪个位置

Answer 3

是的就是做个彩蛋。
我需要 能判断 alt + t e a m的代码，至于显示什么东西自己弄了。

Answer 4

是按着 alt键的同时，逐个按t键e键a键m键

Answer 5

楼主可以搜一下键盘钩子，应该是用钩子的吧
http://www.2ccc.com/article.asp?articleid=5712

Answer 6

baidu, 搜索“delphi 彩蛋”，即可。

Answer 7

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 = 'ABC' then
        begin
          showmessage(' WELLCOME');
        end;
    end
  else 
    keytp := ''; 
end;
记得 form的keypreview设成true