本文整理自网络，侵删。
防止重复在应用程序中按下按钮的一种方法是，例如，在特定时间段内禁用按钮。
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程序在win7 win8 win10下自动请求以管理员身份运行
Delphi 与 xml 示例（直接利用ixmldocument）
更多相关阅读请进入《Delphi》频道 >>
