关于button得一个小问题。。。。

Question

我想是实现这么一个功能：按下一个按钮后，两秒后才能按第二次，两秒内，这个按钮时无法按得？请问一下如何实现？谢谢。。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  TButton(Sender).Enabled:= false;
  // .... 其它处理
  Sleep(2000);
  TButton(Sender).Enabled:= true;
end;或者加一个TIMER控件, 或者加线程都可以...

Answer 2

加一个Timer ，Timer的 Interval 设置为 2000 ，Enabled 为 False；procedure TForm1.Button1Click(Sender: TObject);
begin
  TButton(Sender).Enabled:= false;
  Timer1.Enabled := True ;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TButton(Sender).Enabled:= True;end;