如何在FireMonkey中控制触摸事件调度，避免重复执行点击回调？

针对你遇到的用户重复点击引发的问题，我之前在项目里也踩过同样的坑——用Enabled开关的方式不仅繁琐，还容易有遗漏，甚至拦不住跨组件的重复点击。这里给你一套全局生效的解决方案，能彻底阻止同一时间多个点击事件的执行，不管是同一个组件还是不同组件。

核心思路 #

全局维护一个"是否正在处理点击"的状态标志，通过拦截所有触摸消息过滤后续点击请求，同时用包裹函数确保点击处理的原子性（执行前锁定状态，执行完解锁，就算出异常也能保证状态重置）。

具体实现步骤 #

1. 创建点击守卫工具单元 #

先做一个通用的工具单元，用来管理全局状态和包裹点击处理逻辑：

unit ClickGuard;

interface

var
  IsProcessingClick: Boolean; // 全局标志：是否有点击正在处理

// 包裹点击处理逻辑的函数
procedure GuardedClickHandler(const Proc: TProc);

implementation

uses
  SysUtils;

procedure GuardedClickHandler(const Proc: TProc);
begin
  // 如果正在处理，直接返回不执行
  if IsProcessingClick then Exit;
  
  try
    // 锁定状态，阻止后续点击
    IsProcessingClick := True;
    // 执行实际的点击业务逻辑
    Proc();
  finally
    // 无论是否异常，都必须解锁状态
    IsProcessingClick := False;
  end;
end;

end.

2. 全局拦截触摸消息 #

在主窗体里实现IMessageFilter接口，拦截所有FireMonkey的触摸消息，当处于处理状态时直接过滤掉：

uses
  FMX.Forms, FMX.Messages, ClickGuard;

type
  TMainForm = class(TForm, IMessageFilter)
    // 你的组件声明
  private
    // 消息过滤处理方法
    function Dispatch(var Message: TMessage): Boolean;
  public
    // 注册/注销消息过滤器
    procedure AfterConstruction; override;
    procedure BeforeDestruction; override;
  end;

implementation

procedure TMainForm.AfterConstruction;
begin
  inherited;
  // 注册触摸消息过滤器，全局生效
  TMessageManager.DefaultManager.AddMessageHandler(TTouchMessage, Dispatch);
end;

procedure TMainForm.BeforeDestruction;
begin
  // 注销过滤器，避免内存泄漏
  TMessageManager.DefaultManager.RemoveMessageHandler(TTouchMessage, Dispatch);
  inherited;
end;

function TMainForm.Dispatch(var Message: TMessage): Boolean;
begin
  Result := False; // 默认不拦截消息
  
  // 如果正在处理点击，且当前是触摸消息，就拦截掉
  if IsProcessingClick and (Message is TTouchMessage) then
  begin
    Result := True; // 返回True表示消息已被处理，不再传递给后续组件
  end;
end;

3. 修改组件的点击事件 #

把原来的组件点击事件逻辑，用GuardedClickHandler包裹起来，比如按钮的点击：

procedure TMainForm.btnSubmitClick(Sender: TObject);
begin
  GuardedClickHandler(procedure
    begin
      // 这里放你原来的点击处理逻辑，比如提交表单、请求接口等
      // 模拟耗时操作（比如网络请求）
      Sleep(3000);
      ShowMessage('处理完成！');
    end);
end;

额外优化点 #

• 区分触摸事件类型：如果需要允许滑动等操作，只禁止点击，可以在Dispatch里判断TTouchMessage的TouchEvent属性，比如只拦截teDown或teClick类型的事件。
• UI反馈：可以在IsProcessingClick为true时，给用户一个视觉反馈（比如显示加载动画、修改按钮文字），让用户知道当前正在处理，减少重复点击的冲动。
• 线程安全：如果你的点击处理涉及多线程操作，需要给IsProcessingClick加锁（比如用TCriticalSection），防止并发状态下的逻辑混乱。

对比原方案的优势 #

• 全局生效，不需要逐个组件设置Enabled，减少大量重复代码。
• 能阻止所有组件的点击，不管用户点的是同一个还是其他组件。
• 异常安全，即使处理逻辑出错，也能保证状态重置，不会一直锁死UI。

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