本文整理自网络，侵删。
防止重复在应用程序中按下按钮的一种方法是，例如，在特定时间段内禁用按钮。
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 xe中windows7新的taskbar功能的使用
Delphi 字符串转换为16进制整数 整数转换为16进制字符串
Delphi firedac压缩和修复ms access数据库
更多相关阅读请进入《Delphi》频道 >>
