本文整理自网络，侵删。
防止重复在应用程序中按下按钮的一种方法是，例如，在特定时间段内禁用按钮。
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled := False;
Sleep(1000);
Button1.Enabled := True;
end;
另外一个办法：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Enabled := True;
Button1.HitTest := True;
Timer1.Enabled := False; // Timer停止
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.HitTest := False;
Button1.Enabled := False;
Timer1.Enabled := True; // Timer启动
end;
相关阅读 >>
Delphi 利用hook api函数openprocess与terminateprocess来防止任务管理器结束进程
更多相关阅读请进入《Delphi》频道 >>
