做了一个复活节彩蛋，关闭窗体后再次按热键，不好使了怎么办啊？

Question

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if shift = [ssALT] then
    begin
      keytp := keytp + chr(key);
      if keytp = 'ABC' then
        begin
          showmessage(' WELLCOME');
        end;
    end;
end;
当我按下alt+abc后可以弹出对话框，可是再次按alt+abc就不会弹出来了，这个怎么办啊？

Answer 1

SHOWMESSAGE後把   keyTp  清空，翠備下一次使用。

Answer 2

keytp里面的字符串清空就可以了。