本文整理自网络，侵删。
防止重复在应用程序中按下按钮的一种方法是，例如，在特定时间段内禁用按钮。
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 firedac 下的 sqlite [2] - 第一个例子
Delphi monthoftheyear、weekoftheyear、weekofthemonth、dayoftheyear … 相对时间
更多相关阅读请进入《Delphi》频道 >>
