delphi禁止在Android上重复按下按钮

防止重复在应用程序中按下按钮的一种方法是，例如，在特定时间段内禁用按钮。

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;