在DELPHI中如和让按键在规定时间有效呢

Question

在DELPHI中如和让按键在规定时间有效呢，
我是用按键来控制某一命令，但是想让按键在几秒内才能再用，怎么搞的，也就是按键盘按下后过几秒才能使用！谢谢！

Answer 1

在onkeydown 记录起始时间
在onkeyup读当前时间,如差>N SECOND 则执行

Answer 2

放一个Timerprocedure TForm1.FormShow(Sender: TObject);
begin
  Button1.Enabled:=false;
  Timer1.Enabled:=false;
  Timer1.Interval:=2000;
end;procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Timer1.Enabled:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Button1.Enabled:=true;
  Timer1.Enabled:=false;
end;