如何用Pascal实现用户点击按钮超3次后禁止再次点击功能

问题根源 #

你当前的计数逻辑失效是因为局部变量的生命周期限制：你把计数变量A定义为btnCAPTCHAClick方法的局部变量，每次触发点击事件时，A都会被重新初始化为0，自增后只能得到1，无法累计多次点击的计数。

解决方案 #

推荐将计数变量改为窗体类的成员变量，避免每次调用方法时重置计数，修改步骤如下：

1. 在TVerifyForm的类定义中添加私有成员变量用于存储点击次数，窗体初始化时将其赋值为0
2. 点击事件触发时先判断当前计数是否已达阈值，未达阈值再执行验证码展示逻辑并累计计数，达到阈值直接禁用按钮
3. 可以根据业务需要调整解禁逻辑，比如验证码校验成功后重置计数、或者间隔固定时间后重置计数

修改后的代码示例 #

首先修改窗体类定义：

type
  TVerifyForm = class(TForm)
    btnCAPTCHA: TButton;
    // 其他已有组件声明
    procedure FormCreate(Sender: TObject);
    procedure btnCAPTCHAClick(Sender: TObject);
  private
    FClickCount: Integer; // 新增点击计数成员变量
    // 其他已有私有声明
  public
    // 其他已有公有声明
  end;

然后是窗体创建和点击事件的实现：

procedure TVerifyForm.FormCreate(Sender: TObject);
begin
  FClickCount := 0; // 初始化计数为0
end;

procedure TVerifyForm.btnCAPTCHAClick(Sender: TObject);
begin
  // 先判断是否已经达到点击上限
  if FClickCount >= 3 then
  begin
    ShowMessage('BLOCKED');
    Exit;
  end;

  // 原有业务逻辑：展示验证码
  CaptchaForm.ShowModal;

  // 计数+1
  Inc(FClickCount);

  // 达到阈值直接禁用按钮，避免用户再次点击
  if FClickCount >= 3 then
  begin
    btnCAPTCHA.Enabled := False;
    ShowMessage('BLOCKED');
  end;
end;

补充说明 #

如果你不希望使用类成员变量，也可以将方法内的局部变量声明为静态变量，只需把var A: integer;改成var A: integer; static;，同时删掉A := 0;的初始化逻辑即可。但这种方案的缺陷是静态变量不会随窗体销毁而重置，如果窗体被多次创建和释放，计数会出现异常，因此更推荐使用类成员变量的方案。

内容的提问来源于stack exchange，提问作者Haroshi